home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / lang / sofa.lha / sofa / smalleiffel / bin_c / compile_to_c20.c < prev    next >
C/C++ Source or Header  |  2000-03-25  |  131KB  |  5,076 lines
  1. /*
  2. -- ANSI C code generated by :
  3. -- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.76Beta#1)--
  4. -- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
  5. -- Dominique COLNET and Suzanne COLLIN -    colnet@loria.fr     --
  6. --                  http://SmallEiffel.loria.fr/                --
  7. */
  8. #include "compile_to_c.h"
  9.  
  10.  
  11. T0* r197to_cst_att_real(T197* C,T0* a1){
  12. T0* R=NULL;
  13. r197to_cst_att_check_result_type(C);
  14. /*[IF*/
  15. if(X52is_real((/*RF2*/(*C)._type/*4*/))){
  16. {T210*n=((T210*)malloc(sizeof(*n))/*28*/);
  17. *n=M210;
  18. r210make(n,r197n(),(/*RF2*/(*C)._type/*4*/),a1);
  19. R=((T0*)n);
  20. }
  21. }
  22.  else if(X52is_double((/*RF2*/(*C)._type/*4*/))){
  23. {T211*n=((T211*)malloc(sizeof(*n))/*28*/);
  24. *n=M211;
  25. r211make(n,r197n(),(/*RF2*/(*C)._type/*4*/),a1);
  26. R=((T0*)n);
  27. }
  28. }
  29. else{
  30. {T68 se_tmp0;
  31. r66add_position((*(se_tmp0=X52start_position((/*RF2*/(*C)._type/*4*/)),&se_tmp0)));
  32. }
  33. r197fatal_error(((T0*)ms197_185909));
  34. }
  35. /*FI]*/
  36. return R;
  37. }
  38.  
  39.  
  40. T0* r197to_cst_att_unique(T197* C){
  41. T0* R=NULL;
  42. /*[IF*/
  43. if(((/*RF2*/(*C)._type/*4*/))==((void*)(NULL))){
  44. {T68 se_tmp0;
  45. r66add_position((*(se_tmp0=X82start_position(/*(IRF4.6first*/((/*RF2*/((T84*)(oBC197names))->_storage/*0*/))[0]/*)*/),&se_tmp0)));
  46. }
  47. r197fatal_error(((T0*)ms197_86564));
  48. }
  49.  else if(X52is_integer((/*RF2*/(*C)._type/*4*/))){
  50. {T198*n=((T198*)malloc(sizeof(*n))/*28*/);
  51. *n=M198;
  52. r198make(n,r197n(),(/*RF2*/(*C)._type/*4*/));
  53. R=((T0*)n);
  54. }
  55. }
  56. else{
  57. {T68 se_tmp0;
  58. r66add_position((*(se_tmp0=X52start_position((/*RF2*/(*C)._type/*4*/)),&se_tmp0)));
  59. }
  60. r197fatal_error(((T0*)ms197_86564));
  61. }
  62. /*FI]*/
  63. return R;
  64. }
  65.  
  66.  
  67. T0* r197to_cst_att_string(T197* C,T0* a1){
  68. T0* R=NULL;
  69. r197to_cst_att_check_result_type(C);
  70. /*[IF*/
  71. if(X52is_string((/*RF2*/(*C)._type/*4*/))){
  72. {T206*n=((T206*)malloc(sizeof(*n))/*32*/);
  73. *n=M206;
  74. r206make(n,r197n(),(/*RF2*/(*C)._type/*4*/),a1);
  75. R=((T0*)n);
  76. }
  77. }
  78. else{
  79. {T68 se_tmp0;
  80. r197error((*(se_tmp0=X52start_position((/*RF2*/(*C)._type/*4*/)),&se_tmp0)),((T0*)ms197_141933));
  81. }
  82. }
  83. /*FI]*/
  84. return R;
  85. }
  86.  
  87.  
  88. T0* r197to_procedure_or_function(T197* C){
  89. T0* R=NULL;
  90. /*[IF*/
  91. if(((/*RF2*/(*C)._type/*4*/))==((void*)(NULL))){
  92. {T303*n=((T303*)malloc(sizeof(*n))/*56*/);
  93. *n=M303;
  94. r303make(n,r197n(),(/*RF2*/(*C)._arguments/*0*/),(/*RF2*/(*C)._obsolete_mark/*12*/),(/*RF2*/(*C)._header_comment/*8*/),(/*RF2*/(*C)._require_assertion/*16*/),(/*RF2*/(*C)._local_vars/*20*/),(/*RF2*/(*C)._routine_body/*24*/));
  95. R=((T0*)n);
  96. }
  97. }
  98. else{
  99. {T304*n=((T304*)malloc(sizeof(*n))/*60*/);
  100. *n=M304;
  101. r304make(n,r197n(),(/*RF2*/(*C)._arguments/*0*/),(/*RF2*/(*C)._type/*4*/),(/*RF2*/(*C)._obsolete_mark/*12*/),(/*RF2*/(*C)._header_comment/*8*/),(/*RF2*/(*C)._require_assertion/*16*/),(/*RF2*/(*C)._local_vars/*20*/),(/*RF2*/(*C)._routine_body/*24*/));
  102. R=((T0*)n);
  103. }
  104. }
  105. /*FI]*/
  106. return R;
  107. }
  108.  
  109.  
  110. T0* r197to_cst_att_bit(T197* C,T0* a1){
  111. T0* R=NULL;
  112. r197to_cst_att_check_result_type(C);
  113. /*[IF*/
  114. if(X52is_bit((/*RF2*/(*C)._type/*4*/))){
  115. {T209*n=((T209*)malloc(sizeof(*n))/*28*/);
  116. *n=M209;
  117. r209make(n,r197n(),(/*RF2*/(*C)._type/*4*/),a1);
  118. R=((T0*)n);
  119. }
  120. }
  121. else{
  122. {T68 se_tmp0;
  123. r197error((*(se_tmp0=X52start_position((/*RF2*/(*C)._type/*4*/)),&se_tmp0)),((T0*)ms197_126960));
  124. }
  125. }
  126. /*FI]*/
  127. return R;
  128. }
  129.  
  130.  
  131. T0* r197n(void){
  132. T0* R=NULL;
  133. {T83*n=((T83*)malloc(sizeof(*n))/*8*/);
  134. *n=M83;
  135. r83make_n(n,oBC197names);
  136. R=((T0*)n);
  137. }
  138. return R;
  139. }
  140.  
  141.  
  142. void r197to_cst_att_check_result_type(T197* C){
  143. /*[IF*/
  144. if(((/*RF2*/(*C)._type/*4*/))==((void*)(NULL))){
  145. {T68 se_tmp0;
  146. r66add_position((*(se_tmp0=X82start_position(/*(IRF4.6first*/((/*RF2*/((T84*)(oBC197names))->_storage/*0*/))[0]/*)*/),&se_tmp0)));
  147. }
  148. r197fatal_error(((T0*)ms197_97692));
  149. }
  150.  else if(!(X52is_run_type((/*RF2*/(*C)._type/*4*/)))){
  151. {T68 se_tmp0;
  152. r66add_position((*(se_tmp0=X52start_position((/*RF2*/(*C)._type/*4*/)),&se_tmp0)));
  153. }
  154. r197fatal_error(((T0*)ms197_83790));
  155. }
  156. /*FI]*/
  157. }
  158.  
  159.  
  160. T0* r197to_cst_att_integer(T197* C,T0* a1){
  161. T0* R=NULL;
  162. r197to_cst_att_check_result_type(C);
  163. /*[IF*/
  164. if(X52is_integer((/*RF2*/(*C)._type/*4*/))){
  165. {T212*n=((T212*)malloc(sizeof(*n))/*28*/);
  166. *n=M212;
  167. r212make(n,r197n(),(/*RF2*/(*C)._type/*4*/),a1);
  168. R=((T0*)n);
  169. }
  170. }
  171.  else if(X52is_real((/*RF2*/(*C)._type/*4*/))){
  172. {T210*n=((T210*)malloc(sizeof(*n))/*28*/);
  173. *n=M210;
  174. r210make(n,r197n(),(/*RF2*/(*C)._type/*4*/),r165to_real_constant(((T165*)a1)));
  175. R=((T0*)n);
  176. }
  177. }
  178.  else if(X52is_double((/*RF2*/(*C)._type/*4*/))){
  179. {T211*n=((T211*)malloc(sizeof(*n))/*28*/);
  180. *n=M211;
  181. r211make(n,r197n(),(/*RF2*/(*C)._type/*4*/),r165to_real_constant(((T165*)a1)));
  182. R=((T0*)n);
  183. }
  184. }
  185. else{
  186. {T68 se_tmp0;
  187. r197error((*(se_tmp0=X52start_position((/*RF2*/(*C)._type/*4*/)),&se_tmp0)),((T0*)ms197_235773));
  188. }
  189. }
  190. /*FI]*/
  191. return R;
  192. }
  193.  
  194.  
  195. T0* r197to_external_routine(T197* C,T0* a1,T0* a2){
  196. T0* R=NULL;
  197. /*[IF*/
  198. if(((/*RF2*/(*C)._type/*4*/))==((void*)(NULL))){
  199. {T290*n=((T290*)malloc(sizeof(*n))/*48*/);
  200. *n=M290;
  201. r290make(n,r197n(),(/*RF2*/(*C)._arguments/*0*/),(/*RF2*/(*C)._obsolete_mark/*12*/),(/*RF2*/(*C)._header_comment/*8*/),(/*RF2*/(*C)._require_assertion/*16*/),a1,a2);
  202. R=((T0*)n);
  203. }
  204. }
  205. else{
  206. {T291*n=((T291*)malloc(sizeof(*n))/*52*/);
  207. *n=M291;
  208. r291make(n,r197n(),(/*RF2*/(*C)._arguments/*0*/),(/*RF2*/(*C)._type/*4*/),(/*RF2*/(*C)._obsolete_mark/*12*/),(/*RF2*/(*C)._header_comment/*8*/),(/*RF2*/(*C)._require_assertion/*16*/),a1,a2);
  209. R=((T0*)n);
  210. }
  211. }
  212. /*FI]*/
  213. return R;
  214. }
  215.  
  216.  
  217. void r197fatal_error(T0* a1){
  218. /*[IRF3.6append*/{T0* b1=a1;
  219. r7append((T7*)(oBC66explanation),b1);
  220. }/*]*/
  221. r66print_as_fatal_error((T66*)(oBC13eh));
  222. }
  223.  
  224.  
  225. void r197set_require(T197* C,T68 a1,T0* a2,T0* a3){
  226. /*[IF*/
  227. if(((a2)!=((void*)(NULL)))||((a3)!=((void*)(NULL)))){
  228. {T286*n=((T286*)malloc(sizeof(*n))/*25*/);
  229. *n=M286;
  230. r286make(n,a1,a2,a3);
  231. (/*SFN*/C->_require_assertion)=((T0*)n);
  232. }
  233. }
  234. /*FI]*/
  235. }
  236.  
  237.  
  238. T0* r197to_deferred_routine(T197* C){
  239. T0* R=NULL;
  240. /*[IF*/
  241. if(((/*RF2*/(*C)._type/*4*/))==((void*)(NULL))){
  242. {T285*n=((T285*)malloc(sizeof(*n))/*40*/);
  243. *n=M285;
  244. /*[IRF3.6make*/{T285* C1=n;
  245. T0* b1=r197n();
  246. T0* b2=(/*RF2*/(*C)._arguments/*0*/);
  247. T0* b3=(/*RF2*/(*C)._obsolete_mark/*12*/);
  248. T0* b4=(/*RF2*/(*C)._header_comment/*8*/);
  249. T0* b5=(/*RF2*/(*C)._require_assertion/*16*/);
  250. r285make_routine(C1,b1,b2,b3,b4,b5);
  251. }/*]*/
  252. R=((T0*)n);
  253. }
  254. }
  255. else{
  256. {T287*n=((T287*)malloc(sizeof(*n))/*44*/);
  257. *n=M287;
  258. r287make(n,r197n(),(/*RF2*/(*C)._arguments/*0*/),(/*RF2*/(*C)._type/*4*/),(/*RF2*/(*C)._obsolete_mark/*12*/),(/*RF2*/(*C)._header_comment/*8*/),(/*RF2*/(*C)._require_assertion/*16*/));
  259. R=((T0*)n);
  260. }
  261. }
  262. /*FI]*/
  263. return R;
  264. }
  265.  
  266.  
  267. T0* r197to_writable_attribute(T197* C){
  268. T0* R=NULL;
  269. /*[IF*/
  270. if(((/*RF2*/(*C)._type/*4*/))==((void*)(NULL))){
  271. {T68 se_tmp0;
  272. r197error((*(se_tmp0=X82start_position(/*(IRF4.6first*/((/*RF2*/((T84*)(oBC197names))->_storage/*0*/))[0]/*)*/),&se_tmp0)),((T0*)ms197_33465));
  273. }
  274. }
  275.  else if(((/*RF2*/(*C)._arguments/*0*/))!=((void*)(NULL))){
  276. /*[IRF3.6ecp*/{T34* C1=(T34*)(oBC13eiffel_parser);
  277. T0* b1=((T0*)ms197_98482);
  278. {T68 se_tmp0;
  279. r34error((*(se_tmp0=r34current_position(C1),&se_tmp0)),b1);
  280. }
  281. }/*]*/
  282. }
  283. /*FI]*/
  284. {T315*n=((T315*)malloc(sizeof(*n))/*24*/);
  285. *n=M315;
  286. r315make(n,r197n(),(/*RF2*/(*C)._type/*4*/));
  287. R=((T0*)n);
  288. }
  289. return R;
  290. }
  291.  
  292.  
  293. void r197add_synonym(T0* a1){
  294. /*[IF*/
  295. if((X82to_string(a1))==((void*)(((T0*)ms15_1608)))){
  296. {T68 se_tmp0;
  297. r66add_position((*(se_tmp0=X82start_position(a1),&se_tmp0)));
  298. }
  299. r197fatal_error(((T0*)ms197_115695));
  300. }
  301. /*FI]*/
  302. r84add_last((T84*)(oBC197names),a1);
  303. }
  304.  
  305.  
  306. void r197set_require_else(T197* C,T68 a1,T0* a2,T0* a3){
  307. /*[IF*/
  308. if(((a2)!=((void*)(NULL)))||((a3)!=((void*)(NULL)))){
  309. {T286*n=((T286*)malloc(sizeof(*n))/*25*/);
  310. *n=M286;
  311. r286make(n,a1,a2,a3);
  312. (/*SFN*/C->_require_assertion)=((T0*)n);
  313. }
  314. /*[IRF3.3set_require_else*/((((T286*)((T286*)((/*RF2*/(*C)._require_assertion/*16*/)))))->_is_require_else)=(1);
  315. /*]*/
  316. }
  317. /*FI]*/
  318. }
  319.  
  320.  
  321. void r197initialize(T197* C){
  322. /*[IRF3.3clear*/((((T84*)((T84*)(oBC197names))))->_upper)=(-(1));
  323. /*]*/
  324. (/*SFN*/C->_arguments)=NULL;
  325. (/*SFN*/C->_type)=NULL;
  326. (/*SFN*/C->_header_comment)=NULL;
  327. (/*SFN*/C->_obsolete_mark)=NULL;
  328. (/*SFN*/C->_require_assertion)=NULL;
  329. (/*SFN*/C->_local_vars)=NULL;
  330. (/*SFN*/C->_routine_body)=NULL;
  331. }
  332.  
  333.  
  334. T0* r197to_once_routine(T197* C){
  335. T0* R=NULL;
  336. /*[IF*/
  337. if(((/*RF2*/(*C)._type/*4*/))==((void*)(NULL))){
  338. {T306*n=((T306*)malloc(sizeof(*n))/*56*/);
  339. *n=M306;
  340. r306make(n,r197n(),(/*RF2*/(*C)._arguments/*0*/),(/*RF2*/(*C)._obsolete_mark/*12*/),(/*RF2*/(*C)._header_comment/*8*/),(/*RF2*/(*C)._require_assertion/*16*/),(/*RF2*/(*C)._local_vars/*20*/),(/*RF2*/(*C)._routine_body/*24*/));
  341. R=((T0*)n);
  342. }
  343. }
  344. else{
  345. {T307*n=((T307*)malloc(sizeof(*n))/*60*/);
  346. *n=M307;
  347. r307make(n,r197n(),(/*RF2*/(*C)._arguments/*0*/),(/*RF2*/(*C)._type/*4*/),(/*RF2*/(*C)._obsolete_mark/*12*/),(/*RF2*/(*C)._header_comment/*8*/),(/*RF2*/(*C)._require_assertion/*16*/),(/*RF2*/(*C)._local_vars/*20*/),(/*RF2*/(*C)._routine_body/*24*/));
  348. R=((T0*)n);
  349. }
  350. }
  351. /*FI]*/
  352. return R;
  353. }
  354. T0*oBC197names=NULL;
  355.  
  356.  
  357. T0* r197to_cst_att_boolean(T197* C,T0* a1){
  358. T0* R=NULL;
  359. r197to_cst_att_check_result_type(C);
  360. /*[IF*/
  361. if(X52is_boolean((/*RF2*/(*C)._type/*4*/))){
  362. {T204*n=((T204*)malloc(sizeof(*n))/*28*/);
  363. *n=M204;
  364. r204make(n,r197n(),(/*RF2*/(*C)._type/*4*/),a1);
  365. R=((T0*)n);
  366. }
  367. }
  368. else{
  369. {T68 se_tmp0;
  370. r197error((*(se_tmp0=X52start_position((/*RF2*/(*C)._type/*4*/)),&se_tmp0)),((T0*)ms197_147108));
  371. }
  372. }
  373. /*FI]*/
  374. return R;
  375. }
  376.  
  377.  
  378. void r66add_position(T68 a1){
  379. /*[IF*/
  380. if(r68is_unknown(&a1)){
  381. }
  382.  else if(r67fast_has((T67*)(oBC66positions),a1)){
  383. }
  384. else{
  385. r67add_last((T67*)(oBC66positions),a1);
  386. }
  387. /*FI]*/
  388. }
  389.  
  390.  
  391. void r66print_as_fatal_error(T66* C){
  392. r66do_print(((T0*)ms66_19162));
  393. exit(1);
  394. }
  395. T0*oBC66explanation=NULL;
  396.  
  397.  
  398. T6 r66is_empty(void){
  399. T6 R=0;
  400. R=(/*(IRF4.7is_empty*/((/*RF2*/((T7*)(oBC66explanation))->_count/*4*/))==(0)/*)*/)&&(/*(IRF4.6is_empty*/((/*RF2*/((T67*)(oBC66positions))->_upper/*8*/))<(0)/*)*/);
  401. return R;
  402. }
  403.  
  404.  
  405. void r66feature_not_found(T0* a1){
  406. {T68 se_tmp0;
  407. r66add_position((*(se_tmp0=X82start_position(a1),&se_tmp0)));
  408. }
  409. /*[IRF3.6append*/{T0* b1=((T0*)ms14_7263);
  410. r7append((T7*)(oBC66explanation),b1);
  411. }/*]*/
  412. /*[IRF3.6append*/{T0* b1=X82to_string(a1);
  413. r7append((T7*)(oBC66explanation),b1);
  414. }/*]*/
  415. /*[IRF3.6append*/{T0* b1=((T0*)ms14_11460);
  416. r7append((T7*)(oBC66explanation),b1);
  417. }/*]*/
  418. }
  419. T0*oBC66positions=NULL;
  420.  
  421.  
  422. void r66print_as_warning(T66* C){
  423. /*[IF*/
  424. if((/*RF2*/(C)->_no_warning/*8*/)){
  425. /*[IRF3.2cancel*//*[IRF3.3clear*/((((T7*)((T7*)(oBC66explanation))))->_count)=(0);
  426. /*]*/
  427. /*[IRF3.3clear*/((((T67*)((T67*)(oBC66positions))))->_upper)=(-(1));
  428. /*]*/
  429. /*]*/
  430. }
  431. else{
  432. r66do_print(((T0*)ms66_8638));
  433. }
  434. /*FI]*/
  435. (/*SFN*/C->_warning_counter)=((/*RF2*/(C)->_warning_counter/*4*/))+(1);
  436. }
  437.  
  438.  
  439. void r66add_feature_name(T0* a1){
  440. /*[IRF3.6append*/{T0* b1=X82to_string(a1);
  441. r7append((T7*)(oBC66explanation),b1);
  442. }/*]*/
  443. /*[IRF3.6extend*/{T3 b1=((T3)'\72');
  444. r7extend((T7*)(oBC66explanation),b1);
  445. }/*]*/
  446. /*[IRF3.6extend*/{T3 b1=((T3)'\40');
  447. r7extend((T7*)(oBC66explanation),b1);
  448. }/*]*/
  449. {T68 se_tmp0;
  450. r66add_position((*(se_tmp0=X82start_position(a1),&se_tmp0)));
  451. }
  452. }
  453.  
  454.  
  455. void r66add_type(T0* a1,T0* a2){
  456. /*[IRF3.6append*/{T0* b1=((T0*)ms66_2250);
  457. r7append((T7*)(oBC66explanation),b1);
  458. }/*]*/
  459. /*[IF*/
  460. if(X52is_run_type(a1)){
  461. /*[IRF3.6append*/{T0* b1=X52run_time_mark(a1);
  462. r7append((T7*)(oBC66explanation),b1);
  463. }/*]*/
  464. }
  465. else{
  466. /*[IRF3.6append*/{T0* b1=X52written_mark(a1);
  467. r7append((T7*)(oBC66explanation),b1);
  468. }/*]*/
  469. }
  470. /*FI]*/
  471. /*[IRF3.6append*/{T0* b1=a2;
  472. r7append((T7*)(oBC66explanation),b1);
  473. }/*]*/
  474. {T68 se_tmp0;
  475. r66add_position((*(se_tmp0=X52start_position(a1),&se_tmp0)));
  476. }
  477. }
  478.  
  479.  
  480. void r66do_print(T0* a1){
  481. T3 _previous_cc=0;
  482. T3 _cc=0;
  483. T2 _cpt=0;
  484. T2 _i=0;
  485. r35w_put_string(((T0*)ms14_3038));
  486. r35w_put_string(a1);
  487. r35w_put_string(((T0*)ms66_366));
  488. _i=1;
  489. _cpt=(9)+((/*RF2*/(((T7*)a1))->_count/*4*/));
  490. while (!((_i)>((/*RF2*/((T7*)(oBC66explanation))->_count/*4*/))))
  491. {
  492. _previous_cc=_cc;
  493. _cc=/*(IRF4.6item*/((/*RF2*/((T7*)(oBC66explanation))->_storage/*0*/))[(_i)-(1)]/*)*/;
  494. _i=(_i)+(1);
  495. /*[IF*/
  496. if((_cpt)>(60)){
  497. /*[IF*/
  498. if((_cc)==(((T3)'\40'))){
  499. r35w_put_character(((T3)'\n'));
  500. _cpt=0;
  501. }
  502.  else if((_previous_cc)==(((T3)'\54'))){
  503. r35w_put_character(((T3)'\n'));
  504. r35w_put_character(_cc);
  505. _cpt=1;
  506. }
  507. else{
  508. r35w_put_character(_cc);
  509. _cpt=(_cpt)+(1);
  510. }
  511. /*FI]*/
  512. }
  513. else{
  514. r35w_put_character(_cc);
  515. {int z1=_cc;
  516.  
  517. if((10==z1)){
  518. _cpt=0;
  519. }
  520.  else{_cpt=(_cpt)+(1);
  521. }}
  522. }
  523. /*FI]*/
  524. }
  525. r35w_put_character(((T3)'\n'));
  526. _i=0;
  527. while (!((_i)>((/*RF2*/((T67*)(oBC66positions))->_upper/*8*/))))
  528. {
  529. r68show(&(/*(IRF4.6item*/((/*RF2*/((T67*)(oBC66positions))->_storage/*0*/))[_i]/*)*/));
  530. _i=(_i)+(1);
  531. }
  532. /*[IRF3.2cancel*//*[IRF3.3clear*/((((T7*)((T7*)(oBC66explanation))))->_count)=(0);
  533. /*]*/
  534. /*[IRF3.3clear*/((((T67*)((T67*)(oBC66positions))))->_upper)=(-(1));
  535. /*]*/
  536. /*]*/
  537. r35w_put_string(((T0*)ms66_2065));
  538. }
  539.  
  540.  
  541. void r66print_as_error(T66* C){
  542. r66do_print(((T0*)ms66_2610));
  543. (/*SFN*/C->_error_counter)=((/*RF2*/(C)->_error_counter/*0*/))+(1);
  544. /*[IF*/
  545. if(((/*RF2*/(C)->_error_counter/*0*/))>=(6)){
  546. r35w_put_string(((T0*)ms14_3038));
  547. r35w_put_string(((T0*)ms66_10489));
  548. exit(1);
  549. }
  550. /*FI]*/
  551. }
  552.  
  553.  
  554. void r203increment(T203* C){
  555. (/*SFN*/C->_value)=((/*RF2*/(C)->_value/*0*/))+(1);
  556. }
  557.  
  558.  
  559. void r366define_manifest_string_mark_header(T2 a1){
  560. r7copy((T7*)(((T0*)ms366_54464)),((T0*)ms14_1736a));
  561. r7extend((T7*)(((T0*)ms366_54464)),((T3)'\40'));
  562. r7append((T7*)(((T0*)ms366_54464)),((T0*)ms366_53260));
  563. r2append_in(a1,((T0*)ms366_54464));
  564. r7append((T7*)(((T0*)ms366_54464)),((T0*)ms14_4320));
  565. r325put_c_heading((T325*)(oBC13cpp),((T0*)ms366_54464));
  566. }
  567.  
  568.  
  569. void r366define_se_ms(T6 a1){
  570. r7copy((T7*)(((T0*)ms366_54464)),((T0*)ms366_28578));
  571. r7copy((T7*)(oBC366body),((T0*)ms366_1785));
  572. r344new_manifest_string_in((T344*)(oBC13gc_handler),oBC366body,a1);
  573. r7append((T7*)(oBC366body),((T0*)ms366_114432));
  574. r344new_native9_in((T344*)(oBC13gc_handler),oBC366body,a1);
  575. r7append((T7*)(oBC366body),((T0*)ms366_115500));
  576. r325put_c_function((T325*)(oBC13cpp),((T0*)ms366_54464),oBC366body);
  577. r325put_c_function((T325*)(oBC13cpp),((T0*)ms366_77844),((T0*)ms366_441672));
  578. }
  579.  
  580.  
  581. T0* r366type_string(void){
  582. if(fBC13type_string==0){fBC13type_string=1;{
  583. T68 _unknown_position={NULL,0};
  584. {T271*n=((T271*)malloc(sizeof(*n))/*8*/);
  585. *n=M271;
  586. oBC13type_string=((T0*)n);
  587. r271make(n,_unknown_position);
  588. }
  589. }}
  590. return oBC13type_string;
  591. }
  592. T0*oBC366mangling_dictionary=NULL;
  593.  
  594.  
  595. void r366used_for_c_inline(T0* a1){
  596. T0* _mangling=NULL;
  597. _mangling=(/*RF2*/(((T161*)a1))->_mangling/*28*/);
  598. /*[IF*/
  599. if(r367has((T367*)(oBC366mangling_dictionary),_mangling)){
  600. r367remove((T367*)(oBC366mangling_dictionary),_mangling);
  601. }
  602. /*FI]*/
  603. }
  604.  
  605.  
  606. void r366string_to_c_code(T0* a1,T0* a2){
  607. T2 _i=0;
  608. r7extend(((T7*)a2),((T3)'\42'));
  609. _i=1;
  610. while (!((_i)>((/*RF2*/(((T7*)a1))->_count/*4*/))))
  611. {
  612. r366character_to_c_code(/*(IRF4.6item*/((/*RF2*/(((T7*)a1))->_storage/*0*/))[(_i)-(1)]/*)*/,a2);
  613. _i=(_i)+(1);
  614. }
  615. r7extend(((T7*)a2),((T3)'\42'));
  616. }
  617.  
  618.  
  619. void r366c_define2(T6 a1){
  620. T0* _ms=NULL;
  621. T2 _mdc=0;
  622. T2 _function_count=0;
  623. T2 _j=0;
  624. T2 _i=0;
  625. _mdc=(/*RF2*/((T367*)(oBC366mangling_dictionary))->_count/*40*/);
  626. r35print_count((T35*)(oBC13echo),((T0*)ms366_30540),_mdc);
  627. /*[IF*/
  628. if((_mdc)>(0)){
  629. _i=1;
  630. while (!((_i)>(_mdc)))
  631. {
  632. _ms=r367item((T367*)(oBC366mangling_dictionary),_i);
  633. r7copy((T7*)(((T0*)ms366_54464)),((T0*)ms14_543));
  634. r7append((T7*)(((T0*)ms366_54464)),(/*RF2*/(((T161*)_ms))->_mangling/*28*/));
  635. r325put_extern1((T325*)(oBC13cpp),((T0*)ms366_54464));
  636. _i=(_i)+(1);
  637. }
  638. }
  639. /*FI]*/
  640. r366define_se_ms(a1);
  641. /*[IF*/
  642. if((_mdc)>(0)){
  643. _i=1;
  644. _function_count=1;
  645. while (!(((_function_count)>(1))&&((_i)>(_mdc))))
  646. {
  647. r7copy((T7*)(((T0*)ms366_54464)),((T0*)ms14_1736a));
  648. r7extend((T7*)(((T0*)ms366_54464)),((T3)'\40'));
  649. r7append((T7*)(((T0*)ms366_54464)),((T0*)ms366_6990));
  650. r2append_in(_function_count,((T0*)ms366_54464));
  651. r7append((T7*)(((T0*)ms366_54464)),((T0*)ms14_4320));
  652. /*[IRF3.3clear*/((((T7*)((T7*)(oBC366body))))->_count)=(0);
  653. /*]*/
  654. _j=50;
  655. while (!(((_j)==(0))||((_i)>(_mdc))))
  656. {
  657. _ms=r367item((T367*)(oBC366mangling_dictionary),_i);
  658. r7append((T7*)(oBC366body),(/*RF2*/(((T161*)_ms))->_mangling/*28*/));
  659. r7append((T7*)(oBC366body),((T0*)ms366_5327));
  660. r2append_in(/*(IRF4.6count*/(/*RF2*/(((T7*)((/*RF2*/(((T161*)_ms))->_to_string/*12*/))))->_count/*4*/)/*)*/,oBC366body);
  661. r7extend((T7*)(oBC366body),((T3)'\54'));
  662. r366string_to_c_code((/*RF2*/(((T161*)_ms))->_to_string/*12*/),oBC366body);
  663. r7append((T7*)(oBC366body),((T0*)ms14_330));
  664. _j=(_j)-(1);
  665. _i=(_i)+(1);
  666. }
  667. _function_count=(_function_count)+(1);
  668. /*[IF*/
  669. if((_i)<=(_mdc)){
  670. r7append((T7*)(oBC366body),((T0*)ms366_6990));
  671. r2append_in(_function_count,oBC366body);
  672. r7append((T7*)(oBC366body),((T0*)ms14_600));
  673. }
  674. /*FI]*/
  675. r325put_c_function((T325*)(oBC13cpp),((T0*)ms366_54464),oBC366body);
  676. /*[IF*/
  677. if(((_function_count)%(5))==(0)){
  678. r325padding_here((T325*)(oBC13cpp));
  679. }
  680. /*FI]*/
  681. }
  682. r325padding_here((T325*)(oBC13cpp));
  683. }
  684. /*FI]*/
  685. }
  686.  
  687.  
  688. T0* r366register(T0* a1){
  689. T0* R=NULL;
  690. T2 _x=0;
  691. r7copy((T7*)(((T0*)ms366_54464)),((T0*)ms366_448));
  692. _x=(/*RF2*/((T51*)((/*RF2*/((/*RF2*/(((T161*)a1))->_start_position/*4*/))._base_class/*0*/)))->_id/*0*/);
  693. r2append_in(_x,((T0*)ms366_54464));
  694. r7extend((T7*)(((T0*)ms366_54464)),((T3)'\137'));
  695. _x=r7hash_code((T7*)((/*RF2*/(((T161*)a1))->_to_string/*12*/)));
  696. r2append_in(_x,((T0*)ms366_54464));
  697. while (!(!(r367has((T367*)(oBC366mangling_dictionary),((T0*)ms366_54464)))))
  698. {
  699. r7extend((T7*)(((T0*)ms366_54464)),((T3)'a'));
  700. }
  701. R=r7twin((T7*)(((T0*)ms366_54464)));
  702. r367put((T367*)(oBC366mangling_dictionary),a1,R);
  703. return R;
  704. }
  705. T0*oBC366body=NULL;
  706.  
  707.  
  708. void r366c_define1(T6 a1){
  709. /*[IF*/
  710. if(!(a1)){
  711. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms366_87500));
  712. /*]*/
  713. }
  714. /*FI]*/
  715. }
  716.  
  717.  
  718. void r366character_to_c_code(T3 a1,T0* a2){
  719. /*[IF*/
  720. if((a1)==(((T3)'\n'))){
  721. r7extend(((T7*)a2),((T3)'\134'));
  722. r7extend(((T7*)a2),((T3)'n'));
  723. }
  724.  else if((a1)==(((T3)'\134'))){
  725. r7extend(((T7*)a2),((T3)'\134'));
  726. r7extend(((T7*)a2),((T3)'\134'));
  727. }
  728.  else if((a1)==(((T3)'\42'))){
  729. r7extend(((T7*)a2),((T3)'\134'));
  730. r7extend(((T7*)a2),((T3)'\42'));
  731. }
  732.  else if((a1)==(((T3)'\47'))){
  733. r7extend(((T7*)a2),((T3)'\134'));
  734. r7extend(((T7*)a2),((T3)'\47'));
  735. }
  736.  else if(((T3code(a1))<(32))||((122)<(T3code(a1)))){
  737. r7extend(((T7*)a2),((T3)'\134'));
  738. r2append_in(r2to_octal(T3code(a1)),a2);
  739. r7extend(((T7*)a2),((T3)'\42'));
  740. r7extend(((T7*)a2),((T3)'\42'));
  741. }
  742. else{
  743. r7extend(((T7*)a2),a1);
  744. }
  745. /*FI]*/
  746. }
  747.  
  748.  
  749. T6 r107is_current(void){
  750. T6 R=0;
  751. /*[IF*/
  752. if(((/*RF2*/((T7*)(((T0*)ms107_84672)))->_count/*4*/))==(7)){
  753. R=r7same_as((T7*)(((T0*)ms15_9275)),((T0*)ms107_84672));
  754. }
  755. /*FI]*/
  756. return R;
  757. }
  758.  
  759.  
  760. void r107reset(T107* C,T68 a1){
  761. (/*SFN*/C->_start_position)=a1;
  762. /*[IRF3.3clear*/((((T7*)((T7*)(((T0*)ms107_84672)))))->_count)=(0);
  763. /*]*/
  764. (/*SFN*/C->_aliased_string_memory)=NULL;
  765. }
  766.  
  767.  
  768. T0* r107to_tag_name(T107* C){
  769. T0* R=NULL;
  770. {T105*n=((T105*)malloc(sizeof(*n))/*12*/);
  771. *n=M105;
  772. r105make(n,r107aliased_string(C),(/*RF2*/(*C)._start_position/*0*/));
  773. R=((T0*)n);
  774. }
  775. return R;
  776. }
  777.  
  778.  
  779. T0* r107to_argument_name2(T107* C,T0* a1,T2 a2){
  780. T0* R=NULL;
  781. {T179*n=((T179*)malloc(sizeof(*n))/*20*/);
  782. *n=M179;
  783. r179refer_to(n,(/*RF2*/(*C)._start_position/*0*/),a1,a2);
  784. R=((T0*)n);
  785. }
  786. return R;
  787. }
  788.  
  789.  
  790. T0* r107to_e_void(T107* C){
  791. T0* R=NULL;
  792. {T147*n=((T147*)malloc(sizeof(*n))/*12*/);
  793. *n=M147;
  794. /*[IRF3.3make*/((((T147*)(n)))->_start_position)=((/*RF2*/(*C)._start_position/*0*/));
  795. /*]*/
  796. R=((T0*)n);
  797. }
  798. return R;
  799. }
  800.  
  801.  
  802. T0* r107to_local_name2(T107* C,T0* a1,T2 a2){
  803. T0* R=NULL;
  804. {T171*n=((T171*)malloc(sizeof(*n))/*20*/);
  805. *n=M171;
  806. r171refer_to(n,(/*RF2*/(*C)._start_position/*0*/),a1,a2);
  807. R=((T0*)n);
  808. }
  809. return R;
  810. }
  811.  
  812.  
  813. T0* r107to_simple_feature_name(T107* C){
  814. T0* R=NULL;
  815. {T138*n=((T138*)malloc(sizeof(*n))/*20*/);
  816. *n=M138;
  817. r138make(n,r107aliased_string(C),(/*RF2*/(*C)._start_position/*0*/));
  818. R=((T0*)n);
  819. }
  820. return R;
  821. }
  822.  
  823.  
  824. T0* r107to_class_name(T107* C){
  825. T0* R=NULL;
  826. {T61*n=((T61*)malloc(sizeof(*n))/*12*/);
  827. *n=M61;
  828. r61make(n,r107aliased_string(C),(/*RF2*/(*C)._start_position/*0*/));
  829. R=((T0*)n);
  830. }
  831. return R;
  832. }
  833.  
  834.  
  835. T6 r107isa_keyword(T107* C){
  836. T6 R=0;
  837. T3 _c=0;
  838. _c=r3to_lower(/*(IRF4.6first*/((/*RF2*/((T7*)(((T0*)ms107_84672)))->_storage/*0*/))[0]/*)*/);
  839. {int z1=_c;
  840.  
  841. if((97==z1)){
  842. /*[IF*/
  843. if(r7same_as((T7*)(((T0*)ms14_2610)),((T0*)ms107_84672))){
  844. R=1;
  845. }
  846.  else if(r7same_as((T7*)(((T0*)ms14_939a)),((T0*)ms107_84672))){
  847. R=1;
  848. }
  849.  else if(r7same_as((T7*)(((T0*)ms15_921)),((T0*)ms107_84672))){
  850. R=1;
  851. }
  852. else{
  853. R=r7same_as((T7*)(((T0*)ms14_424)),((T0*)ms107_84672));
  854. }
  855. /*FI]*/
  856. }
  857.  else 
  858. if((99==z1)){
  859. /*[IF*/
  860. if(r7same_as((T7*)(((T0*)ms14_2550)),((T0*)ms107_84672))){
  861. R=1;
  862. }
  863.  else if(r7same_as((T7*)(((T0*)ms14_2670)),((T0*)ms107_84672))){
  864. R=1;
  865. }
  866.  else if(r7same_as((T7*)(((T0*)ms14_6798)),((T0*)ms107_84672))){
  867. r66add_position((/*RF2*/(*C)._start_position/*0*/));
  868. /*[IRF3.6append*/{T0* b1=((T0*)ms107_1278504);
  869. r7append((T7*)(oBC66explanation),b1);
  870. }/*]*/
  871. r66print_as_warning((T66*)(oBC13eh));
  872. }
  873. else{
  874. R=r7same_as((T7*)(((T0*)ms14_11256)),((T0*)ms107_84672));
  875. }
  876. /*FI]*/
  877. }
  878.  else 
  879. if((100==z1)){
  880. /*[IF*/
  881. if(r7same_as((T7*)(((T0*)ms14_2595)),((T0*)ms107_84672))){
  882. R=1;
  883. }
  884.  else if(r7same_as((T7*)(((T0*)ms14_10544)),((T0*)ms107_84672))){
  885. R=1;
  886. }
  887. else{
  888. R=r7same_as((T7*)(((T0*)ms14_422)),((T0*)ms107_84672));
  889. }
  890. /*FI]*/
  891. }
  892.  else 
  893. if((101==z1)){
  894. /*[IF*/
  895. if(r7same_as((T7*)(((T0*)ms14_1700)),((T0*)ms107_84672))){
  896. R=1;
  897. }
  898.  else if(r7same_as((T7*)(((T0*)ms14_6852)),((T0*)ms107_84672))){
  899. R=1;
  900. }
  901.  else if(r7same_as((T7*)(((T0*)ms14_933)),((T0*)ms107_84672))){
  902. R=1;
  903. }
  904.  else if(r7same_as((T7*)(((T0*)ms14_6978)),((T0*)ms107_84672))){
  905. R=1;
  906. }
  907.  else if(r7same_as((T7*)(((T0*)ms14_10720)),((T0*)ms107_84672))){
  908. R=1;
  909. }
  910.  else if(r7same_as((T7*)(((T0*)ms14_7524)),((T0*)ms107_84672))){
  911. R=1;
  912. }
  913. else{
  914. R=r7same_as((T7*)(((T0*)ms14_11328)),((T0*)ms107_84672));
  915. }
  916. /*FI]*/
  917. }
  918.  else 
  919. if((102==z1)){
  920. /*[IF*/
  921. if(r7same_as((T7*)(((T0*)ms14_2615)),((T0*)ms107_84672))){
  922. R=1;
  923. }
  924.  else if(r7same_as((T7*)(((T0*)ms14_8680)),((T0*)ms107_84672))){
  925. R=1;
  926. }
  927.  else if(r7same_as((T7*)(((T0*)ms14_1744)),((T0*)ms107_84672))){
  928. R=1;
  929. }
  930. else{
  931. R=r7same_as((T7*)(((T0*)ms14_7260)),((T0*)ms107_84672));
  932. }
  933. /*FI]*/
  934. }
  935.  else 
  936. if((105==z1)){
  937. /*[IF*/
  938. if(r7same_as((T7*)(((T0*)ms14_414)),((T0*)ms107_84672))){
  939. R=1;
  940. }
  941.  else if(r7same_as((T7*)(((T0*)ms15_9408)),((T0*)ms107_84672))){
  942. R=1;
  943. }
  944.  else if(r7same_as((T7*)(((T0*)ms14_10880)),((T0*)ms107_84672))){
  945. R=1;
  946. }
  947.  else if(r7same_as((T7*)(((T0*)ms14_2710)),((T0*)ms107_84672))){
  948. R=1;
  949. }
  950.  else if(r7same_as((T7*)(((T0*)ms14_9422)),((T0*)ms107_84672))){
  951. R=1;
  952. }
  953.  else if(r7same_as((T7*)(((T0*)ms14_9485)),((T0*)ms107_84672))){
  954. R=1;
  955. }
  956.  else if(r7same_as((T7*)(((T0*)ms14_14292)),((T0*)ms107_84672))){
  957. R=1;
  958. }
  959. else{
  960. R=r7same_as((T7*)(((T0*)ms14_440)),((T0*)ms107_84672));
  961. }
  962. /*FI]*/
  963. }
  964.  else 
  965. if((108==z1)){
  966. /*[IF*/
  967. if(r7same_as((T7*)(((T0*)ms14_1684)),((T0*)ms107_84672))){
  968. R=1;
  969. }
  970.  else if(r7same_as((T7*)(((T0*)ms14_2615a)),((T0*)ms107_84672))){
  971. R=1;
  972. }
  973. else{
  974. R=r7same_as((T7*)(((T0*)ms14_1768)),((T0*)ms107_84672));
  975. }
  976. /*FI]*/
  977. }
  978.  else 
  979. if((111==z1)){
  980. /*[IF*/
  981. if(r7same_as((T7*)(((T0*)ms14_10808)),((T0*)ms107_84672))){
  982. R=1;
  983. }
  984.  else if(r7same_as((T7*)(((T0*)ms14_957)),((T0*)ms107_84672))){
  985. R=1;
  986. }
  987.  else if(r7same_as((T7*)(((T0*)ms14_1684a)),((T0*)ms107_84672))){
  988. R=1;
  989. }
  990. else{
  991. R=r7same_as((T7*)(((T0*)ms15_450)),((T0*)ms107_84672));
  992. }
  993. /*FI]*/
  994. }
  995.  else 
  996. if((112==z1)){
  997. /*[IF*/
  998. if(r7same_as((T7*)(((T0*)ms15_13833)),((T0*)ms107_84672))){
  999. R=1;
  1000. }
  1001. else{
  1002. R=r7same_as((T7*)(((T0*)ms14_7524a)),((T0*)ms107_84672));
  1003. }
  1004. /*FI]*/
  1005. }
  1006.  else 
  1007. if((114==z1)){
  1008. /*[IF*/
  1009. if(r7same_as((T7*)(((T0*)ms14_10608)),((T0*)ms107_84672))){
  1010. R=1;
  1011. }
  1012.  else if(r7same_as((T7*)(((T0*)ms14_6822)),((T0*)ms107_84672))){
  1013. R=1;
  1014. }
  1015.  else if(r7same_as((T7*)(((T0*)ms14_8799)),((T0*)ms107_84672))){
  1016. R=1;
  1017. }
  1018.  else if(r7same_as((T7*)(((T0*)ms14_6912)),((T0*)ms107_84672))){
  1019. R=1;
  1020. }
  1021. else{
  1022. R=r7same_as((T7*)(((T0*)ms14_2830)),((T0*)ms107_84672));
  1023. }
  1024. /*FI]*/
  1025. }
  1026.  else 
  1027. if((115==z1)){
  1028. /*[IF*/
  1029. if(r7same_as((T7*)(((T0*)ms14_7320)),((T0*)ms107_84672))){
  1030. R=1;
  1031. }
  1032.  else if(r7same_as((T7*)(((T0*)ms14_10776)),((T0*)ms107_84672))){
  1033. R=1;
  1034. }
  1035. else{
  1036. R=r7same_as((T7*)(((T0*)ms14_2810)),((T0*)ms107_84672));
  1037. }
  1038. /*FI]*/
  1039. }
  1040.  else 
  1041. if((116==z1)){
  1042. /*[IF*/
  1043. if(r7same_as((T7*)(((T0*)ms14_1724)),((T0*)ms107_84672))){
  1044. R=1;
  1045. }
  1046. else{
  1047. R=r7same_as((T7*)(((T0*)ms14_1792)),((T0*)ms107_84672));
  1048. }
  1049. /*FI]*/
  1050. }
  1051.  else 
  1052. if((117==z1)){
  1053. /*[IF*/
  1054. if(r7same_as((T7*)(((T0*)ms14_10704)),((T0*)ms107_84672))){
  1055. R=1;
  1056. }
  1057.  else if(r7same_as((T7*)(((T0*)ms14_7008)),((T0*)ms107_84672))){
  1058. R=1;
  1059. }
  1060. else{
  1061. R=r7same_as((T7*)(((T0*)ms14_2780)),((T0*)ms107_84672));
  1062. }
  1063. /*FI]*/
  1064. }
  1065.  else 
  1066. if((118==z1)){
  1067. R=r7same_as((T7*)(((T0*)ms14_9401)),((T0*)ms107_84672));
  1068. }
  1069.  else 
  1070. if((119==z1)){
  1071. R=r7same_as((T7*)(((T0*)ms14_1736)),((T0*)ms107_84672));
  1072. }
  1073.  else 
  1074. if((120==z1)){
  1075. R=r7same_as((T7*)(((T0*)ms15_1035a)),((T0*)ms107_84672));
  1076. }
  1077. }
  1078. return R;
  1079. }
  1080.  
  1081.  
  1082. T0* r107to_argument_name1(T107* C){
  1083. T0* R=NULL;
  1084. {T181*n=((T181*)malloc(sizeof(*n))/*24*/);
  1085. *n=M181;
  1086. r181make(n,(/*RF2*/(*C)._start_position/*0*/),r107aliased_string(C));
  1087. R=((T0*)n);
  1088. }
  1089. return R;
  1090. }
  1091.  
  1092.  
  1093. T0* r107to_prefix_name(T107* C){
  1094. T0* R=NULL;
  1095. {T133*n=((T133*)malloc(sizeof(*n))/*20*/);
  1096. *n=M133;
  1097. r133make(n,r107aliased_string(C),(/*RF2*/(*C)._start_position/*0*/));
  1098. R=((T0*)n);
  1099. }
  1100. return R;
  1101. }
  1102.  
  1103.  
  1104. T0* r107string_aliaser(void){
  1105. if(fBC13string_aliaser==0){fBC13string_aliaser=1;{
  1106. {T21*n=((T21*)malloc(1));
  1107. oBC13string_aliaser=((T0*)n);
  1108. /*[IRF3.2make*//*[IRF3.6add1*/{T0* b1=((T0*)ms15_696);
  1109. r23put((T23*)(oBC21memory),b1,b1);
  1110. }/*]*/
  1111. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1915);
  1112. r23put((T23*)(oBC21memory),b1,b1);
  1113. }/*]*/
  1114. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_669);
  1115. r23put((T23*)(oBC21memory),b1,b1);
  1116. }/*]*/
  1117. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1980);
  1118. r23put((T23*)(oBC21memory),b1,b1);
  1119. }/*]*/
  1120. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9234);
  1121. r23put((T23*)(oBC21memory),b1,b1);
  1122. }/*]*/
  1123. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6405);
  1124. r23put((T23*)(oBC21memory),b1,b1);
  1125. }/*]*/
  1126. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12529);
  1127. r23put((T23*)(oBC21memory),b1,b1);
  1128. }/*]*/
  1129. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9801);
  1130. r23put((T23*)(oBC21memory),b1,b1);
  1131. }/*]*/
  1132. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16393);
  1133. r23put((T23*)(oBC21memory),b1,b1);
  1134. }/*]*/
  1135. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12550);
  1136. r23put((T23*)(oBC21memory),b1,b1);
  1137. }/*]*/
  1138. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_4728);
  1139. r23put((T23*)(oBC21memory),b1,b1);
  1140. }/*]*/
  1141. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_10740);
  1142. r23put((T23*)(oBC21memory),b1,b1);
  1143. }/*]*/
  1144. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12030);
  1145. r23put((T23*)(oBC21memory),b1,b1);
  1146. }/*]*/
  1147. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_14817);
  1148. r23put((T23*)(oBC21memory),b1,b1);
  1149. }/*]*/
  1150. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6307);
  1151. r23put((T23*)(oBC21memory),b1,b1);
  1152. }/*]*/
  1153. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6643);
  1154. r23put((T23*)(oBC21memory),b1,b1);
  1155. }/*]*/
  1156. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12595);
  1157. r23put((T23*)(oBC21memory),b1,b1);
  1158. }/*]*/
  1159. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_5508);
  1160. r23put((T23*)(oBC21memory),b1,b1);
  1161. }/*]*/
  1162. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_17448);
  1163. r23put((T23*)(oBC21memory),b1,b1);
  1164. }/*]*/
  1165. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1216);
  1166. r23put((T23*)(oBC21memory),b1,b1);
  1167. }/*]*/
  1168. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7928);
  1169. r23put((T23*)(oBC21memory),b1,b1);
  1170. }/*]*/
  1171. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6776);
  1172. r23put((T23*)(oBC21memory),b1,b1);
  1173. }/*]*/
  1174. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12804);
  1175. r23put((T23*)(oBC21memory),b1,b1);
  1176. }/*]*/
  1177. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1168);
  1178. r23put((T23*)(oBC21memory),b1,b1);
  1179. }/*]*/
  1180. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7576);
  1181. r23put((T23*)(oBC21memory),b1,b1);
  1182. }/*]*/
  1183. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_4956);
  1184. r23put((T23*)(oBC21memory),b1,b1);
  1185. }/*]*/
  1186. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16692);
  1187. r23put((T23*)(oBC21memory),b1,b1);
  1188. }/*]*/
  1189. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_19124);
  1190. r23put((T23*)(oBC21memory),b1,b1);
  1191. }/*]*/
  1192. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_921);
  1193. r23put((T23*)(oBC21memory),b1,b1);
  1194. }/*]*/
  1195. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_10680);
  1196. r23put((T23*)(oBC21memory),b1,b1);
  1197. }/*]*/
  1198. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_64);
  1199. r23put((T23*)(oBC21memory),b1,b1);
  1200. }/*]*/
  1201. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_368);
  1202. r23put((T23*)(oBC21memory),b1,b1);
  1203. }/*]*/
  1204. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_61);
  1205. r23put((T23*)(oBC21memory),b1,b1);
  1206. }/*]*/
  1207. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_246);
  1208. r23put((T23*)(oBC21memory),b1,b1);
  1209. }/*]*/
  1210. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_62);
  1211. r23put((T23*)(oBC21memory),b1,b1);
  1212. }/*]*/
  1213. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9408);
  1214. r23put((T23*)(oBC21memory),b1,b1);
  1215. }/*]*/
  1216. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_242);
  1217. r23put((T23*)(oBC21memory),b1,b1);
  1218. }/*]*/
  1219. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_60);
  1220. r23put((T23*)(oBC21memory),b1,b1);
  1221. }/*]*/
  1222. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_45);
  1223. r23put((T23*)(oBC21memory),b1,b1);
  1224. }/*]*/
  1225. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_42);
  1226. r23put((T23*)(oBC21memory),b1,b1);
  1227. }/*]*/
  1228. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_216);
  1229. r23put((T23*)(oBC21memory),b1,b1);
  1230. }/*]*/
  1231. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1011);
  1232. r23put((T23*)(oBC21memory),b1,b1);
  1233. }/*]*/
  1234. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_450);
  1235. r23put((T23*)(oBC21memory),b1,b1);
  1236. }/*]*/
  1237. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8211);
  1238. r23put((T23*)(oBC21memory),b1,b1);
  1239. }/*]*/
  1240. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_43);
  1241. r23put((T23*)(oBC21memory),b1,b1);
  1242. }/*]*/
  1243. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_94);
  1244. r23put((T23*)(oBC21memory),b1,b1);
  1245. }/*]*/
  1246. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_552);
  1247. r23put((T23*)(oBC21memory),b1,b1);
  1248. }/*]*/
  1249. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_564);
  1250. r23put((T23*)(oBC21memory),b1,b1);
  1251. }/*]*/
  1252. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_47);
  1253. r23put((T23*)(oBC21memory),b1,b1);
  1254. }/*]*/
  1255. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_188);
  1256. r23put((T23*)(oBC21memory),b1,b1);
  1257. }/*]*/
  1258. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_35);
  1259. r23put((T23*)(oBC21memory),b1,b1);
  1260. }/*]*/
  1261. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1035a);
  1262. r23put((T23*)(oBC21memory),b1,b1);
  1263. }/*]*/
  1264. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11424);
  1265. r23put((T23*)(oBC21memory),b1,b1);
  1266. }/*]*/
  1267. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2600);
  1268. r23put((T23*)(oBC21memory),b1,b1);
  1269. }/*]*/
  1270. r21add2(((T0*)ms15_22524));
  1271. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6702);
  1272. r23put((T23*)(oBC21memory),b1,b1);
  1273. }/*]*/
  1274. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11776);
  1275. r23put((T23*)(oBC21memory),b1,b1);
  1276. }/*]*/
  1277. r21add2(((T0*)ms15_29246));
  1278. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13419);
  1279. r23put((T23*)(oBC21memory),b1,b1);
  1280. }/*]*/
  1281. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2765a);
  1282. r23put((T23*)(oBC21memory),b1,b1);
  1283. }/*]*/
  1284. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1644);
  1285. r23put((T23*)(oBC21memory),b1,b1);
  1286. }/*]*/
  1287. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_19294);
  1288. r23put((T23*)(oBC21memory),b1,b1);
  1289. }/*]*/
  1290. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1772);
  1291. r23put((T23*)(oBC21memory),b1,b1);
  1292. }/*]*/
  1293. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15070);
  1294. r23put((T23*)(oBC21memory),b1,b1);
  1295. }/*]*/
  1296. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15570);
  1297. r23put((T23*)(oBC21memory),b1,b1);
  1298. }/*]*/
  1299. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27034);
  1300. r23put((T23*)(oBC21memory),b1,b1);
  1301. }/*]*/
  1302. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15190);
  1303. r23put((T23*)(oBC21memory),b1,b1);
  1304. }/*]*/
  1305. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15890);
  1306. r23put((T23*)(oBC21memory),b1,b1);
  1307. }/*]*/
  1308. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_19151);
  1309. r23put((T23*)(oBC21memory),b1,b1);
  1310. }/*]*/
  1311. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13491);
  1312. r23put((T23*)(oBC21memory),b1,b1);
  1313. }/*]*/
  1314. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_28490);
  1315. r23put((T23*)(oBC21memory),b1,b1);
  1316. }/*]*/
  1317. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8750);
  1318. r23put((T23*)(oBC21memory),b1,b1);
  1319. }/*]*/
  1320. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_19437);
  1321. r23put((T23*)(oBC21memory),b1,b1);
  1322. }/*]*/
  1323. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22824a);
  1324. r23put((T23*)(oBC21memory),b1,b1);
  1325. }/*]*/
  1326. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_23829);
  1327. r23put((T23*)(oBC21memory),b1,b1);
  1328. }/*]*/
  1329. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27272);
  1330. r23put((T23*)(oBC21memory),b1,b1);
  1331. }/*]*/
  1332. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_10528);
  1333. r23put((T23*)(oBC21memory),b1,b1);
  1334. }/*]*/
  1335. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13707);
  1336. r23put((T23*)(oBC21memory),b1,b1);
  1337. }/*]*/
  1338. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6846);
  1339. r23put((T23*)(oBC21memory),b1,b1);
  1340. }/*]*/
  1341. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1664);
  1342. r23put((T23*)(oBC21memory),b1,b1);
  1343. }/*]*/
  1344. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2760);
  1345. r23put((T23*)(oBC21memory),b1,b1);
  1346. }/*]*/
  1347. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2730a);
  1348. r23put((T23*)(oBC21memory),b1,b1);
  1349. }/*]*/
  1350. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22248);
  1351. r23put((T23*)(oBC21memory),b1,b1);
  1352. }/*]*/
  1353. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22788);
  1354. r23put((T23*)(oBC21memory),b1,b1);
  1355. }/*]*/
  1356. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_30660);
  1357. r23put((T23*)(oBC21memory),b1,b1);
  1358. }/*]*/
  1359. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13995);
  1360. r23put((T23*)(oBC21memory),b1,b1);
  1361. }/*]*/
  1362. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_432);
  1363. r23put((T23*)(oBC21memory),b1,b1);
  1364. }/*]*/
  1365. r21add2(((T0*)ms15_22596));
  1366. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_60104);
  1367. r23put((T23*)(oBC21memory),b1,b1);
  1368. }/*]*/
  1369. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_24960);
  1370. r23put((T23*)(oBC21memory),b1,b1);
  1371. }/*]*/
  1372. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_34432);
  1373. r23put((T23*)(oBC21memory),b1,b1);
  1374. }/*]*/
  1375. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11144);
  1376. r23put((T23*)(oBC21memory),b1,b1);
  1377. }/*]*/
  1378. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_18964);
  1379. r23put((T23*)(oBC21memory),b1,b1);
  1380. }/*]*/
  1381. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1724);
  1382. r23put((T23*)(oBC21memory),b1,b1);
  1383. }/*]*/
  1384. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1744);
  1385. r23put((T23*)(oBC21memory),b1,b1);
  1386. }/*]*/
  1387. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2765);
  1388. r23put((T23*)(oBC21memory),b1,b1);
  1389. }/*]*/
  1390. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6762);
  1391. r23put((T23*)(oBC21memory),b1,b1);
  1392. }/*]*/
  1393. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1656);
  1394. r23put((T23*)(oBC21memory),b1,b1);
  1395. }/*]*/
  1396. r21add2(((T0*)ms15_60016));
  1397. r21add2(((T0*)ms15_26880));
  1398. r21add2(((T0*)ms15_33240));
  1399. r21add2(((T0*)ms15_21624));
  1400. r21add2(((T0*)ms15_60060));
  1401. r21add2(((T0*)ms15_26908));
  1402. r21add2(((T0*)ms15_33270));
  1403. r21add2(((T0*)ms15_21648));
  1404. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_17886);
  1405. r23put((T23*)(oBC21memory),b1,b1);
  1406. }/*]*/
  1407. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22824);
  1408. r23put((T23*)(oBC21memory),b1,b1);
  1409. }/*]*/
  1410. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_21192);
  1411. r23put((T23*)(oBC21memory),b1,b1);
  1412. }/*]*/
  1413. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2785);
  1414. r23put((T23*)(oBC21memory),b1,b1);
  1415. }/*]*/
  1416. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11496);
  1417. r23put((T23*)(oBC21memory),b1,b1);
  1418. }/*]*/
  1419. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_53940);
  1420. r23put((T23*)(oBC21memory),b1,b1);
  1421. }/*]*/
  1422. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1035);
  1423. r23put((T23*)(oBC21memory),b1,b1);
  1424. }/*]*/
  1425. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2440);
  1426. r23put((T23*)(oBC21memory),b1,b1);
  1427. }/*]*/
  1428. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2445);
  1429. r23put((T23*)(oBC21memory),b1,b1);
  1430. }/*]*/
  1431. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_32730);
  1432. r23put((T23*)(oBC21memory),b1,b1);
  1433. }/*]*/
  1434. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12744);
  1435. r23put((T23*)(oBC21memory),b1,b1);
  1436. }/*]*/
  1437. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13662);
  1438. r23put((T23*)(oBC21memory),b1,b1);
  1439. }/*]*/
  1440. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8547);
  1441. r23put((T23*)(oBC21memory),b1,b1);
  1442. }/*]*/
  1443. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8505);
  1444. r23put((T23*)(oBC21memory),b1,b1);
  1445. }/*]*/
  1446. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9436);
  1447. r23put((T23*)(oBC21memory),b1,b1);
  1448. }/*]*/
  1449. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_14193);
  1450. r23put((T23*)(oBC21memory),b1,b1);
  1451. }/*]*/
  1452. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12915a);
  1453. r23put((T23*)(oBC21memory),b1,b1);
  1454. }/*]*/
  1455. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12915);
  1456. r23put((T23*)(oBC21memory),b1,b1);
  1457. }/*]*/
  1458. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_34528);
  1459. r23put((T23*)(oBC21memory),b1,b1);
  1460. }/*]*/
  1461. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13752);
  1462. r23put((T23*)(oBC21memory),b1,b1);
  1463. }/*]*/
  1464. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11336);
  1465. r23put((T23*)(oBC21memory),b1,b1);
  1466. }/*]*/
  1467. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_26156);
  1468. r23put((T23*)(oBC21memory),b1,b1);
  1469. }/*]*/
  1470. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11376);
  1471. r23put((T23*)(oBC21memory),b1,b1);
  1472. }/*]*/
  1473. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27580);
  1474. r23put((T23*)(oBC21memory),b1,b1);
  1475. }/*]*/
  1476. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_33990);
  1477. r23put((T23*)(oBC21memory),b1,b1);
  1478. }/*]*/
  1479. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27443);
  1480. r23put((T23*)(oBC21memory),b1,b1);
  1481. }/*]*/
  1482. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_40358);
  1483. r23put((T23*)(oBC21memory),b1,b1);
  1484. }/*]*/
  1485. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_25584);
  1486. r23put((T23*)(oBC21memory),b1,b1);
  1487. }/*]*/
  1488. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7380);
  1489. r23put((T23*)(oBC21memory),b1,b1);
  1490. }/*]*/
  1491. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2730);
  1492. r23put((T23*)(oBC21memory),b1,b1);
  1493. }/*]*/
  1494. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7530);
  1495. r23put((T23*)(oBC21memory),b1,b1);
  1496. }/*]*/
  1497. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13977);
  1498. r23put((T23*)(oBC21memory),b1,b1);
  1499. }/*]*/
  1500. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_14175);
  1501. r23put((T23*)(oBC21memory),b1,b1);
  1502. }/*]*/
  1503. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16970);
  1504. r23put((T23*)(oBC21memory),b1,b1);
  1505. }/*]*/
  1506. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8820);
  1507. r23put((T23*)(oBC21memory),b1,b1);
  1508. }/*]*/
  1509. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7326);
  1510. r23put((T23*)(oBC21memory),b1,b1);
  1511. }/*]*/
  1512. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22716);
  1513. r23put((T23*)(oBC21memory),b1,b1);
  1514. }/*]*/
  1515. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12978);
  1516. r23put((T23*)(oBC21memory),b1,b1);
  1517. }/*]*/
  1518. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16770);
  1519. r23put((T23*)(oBC21memory),b1,b1);
  1520. }/*]*/
  1521. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16850);
  1522. r23put((T23*)(oBC21memory),b1,b1);
  1523. }/*]*/
  1524. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9051);
  1525. r23put((T23*)(oBC21memory),b1,b1);
  1526. }/*]*/
  1527. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_21300);
  1528. r23put((T23*)(oBC21memory),b1,b1);
  1529. }/*]*/
  1530. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_56720);
  1531. r23put((T23*)(oBC21memory),b1,b1);
  1532. }/*]*/
  1533. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1800);
  1534. r23put((T23*)(oBC21memory),b1,b1);
  1535. }/*]*/
  1536. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2780);
  1537. r23put((T23*)(oBC21memory),b1,b1);
  1538. }/*]*/
  1539. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27456);
  1540. r23put((T23*)(oBC21memory),b1,b1);
  1541. }/*]*/
  1542. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15650);
  1543. r23put((T23*)(oBC21memory),b1,b1);
  1544. }/*]*/
  1545. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9275);
  1546. r23put((T23*)(oBC21memory),b1,b1);
  1547. }/*]*/
  1548. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_58075);
  1549. r23put((T23*)(oBC21memory),b1,b1);
  1550. }/*]*/
  1551. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22140);
  1552. r23put((T23*)(oBC21memory),b1,b1);
  1553. }/*]*/
  1554. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13833);
  1555. r23put((T23*)(oBC21memory),b1,b1);
  1556. }/*]*/
  1557. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7314);
  1558. r23put((T23*)(oBC21memory),b1,b1);
  1559. }/*]*/
  1560. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1608);
  1561. r23put((T23*)(oBC21memory),b1,b1);
  1562. }/*]*/
  1563. /*]*/
  1564. }
  1565. }}
  1566. return oBC13string_aliaser;
  1567. }
  1568.  
  1569.  
  1570. T0* r107aliased_string(T107* C){
  1571. T0* R=NULL;
  1572. /*[IF*/
  1573. if(((/*RF2*/(*C)._aliased_string_memory/*8*/))==((void*)(NULL))){
  1574. (/*SFN*/C->_aliased_string_memory)=((/*UT*/(void)((T21*)(r107string_aliaser()))),r21item(((T0*)ms107_84672)));
  1575. }
  1576. /*FI]*/
  1577. R=(/*RF2*/(*C)._aliased_string_memory/*8*/);
  1578. return R;
  1579. }
  1580.  
  1581.  
  1582. T0* r107to_infix_name(T107* C,T68 a1){
  1583. T0* R=NULL;
  1584. {T129*n=((T129*)malloc(sizeof(*n))/*20*/);
  1585. *n=M129;
  1586. r129make(n,r107aliased_string(C),a1);
  1587. R=((T0*)n);
  1588. }
  1589. return R;
  1590. }
  1591.  
  1592.  
  1593. T6 r107is_void(void){
  1594. T6 R=0;
  1595. /*[IF*/
  1596. if(((/*RF2*/((T7*)(((T0*)ms107_84672)))->_count/*4*/))==(4)){
  1597. R=r7same_as((T7*)(((T0*)ms15_1608)),((T0*)ms107_84672));
  1598. }
  1599. /*FI]*/
  1600. return R;
  1601. }
  1602.  
  1603.  
  1604. T0* r107to_local_name1(T107* C){
  1605. T0* R=NULL;
  1606. {T174*n=((T174*)malloc(sizeof(*n))/*25*/);
  1607. *n=M174;
  1608. r174make(n,(/*RF2*/(*C)._start_position/*0*/),r107aliased_string(C));
  1609. R=((T0*)n);
  1610. }
  1611. return R;
  1612. }
  1613.  
  1614.  
  1615. T0* r107to_infix_name_use(T107* C){
  1616. T0* R=NULL;
  1617. {T129*n=((T129*)malloc(sizeof(*n))/*20*/);
  1618. *n=M129;
  1619. r129make(n,r107aliased_string(C),(/*RF2*/(*C)._start_position/*0*/));
  1620. R=((T0*)n);
  1621. }
  1622. return R;
  1623. }
  1624.  
  1625.  
  1626. T6 r107is_result(void){
  1627. T6 R=0;
  1628. /*[IF*/
  1629. if(((/*RF2*/((T7*)(((T0*)ms107_84672)))->_count/*4*/))==(6)){
  1630. R=r7same_as((T7*)(((T0*)ms15_7314)),((T0*)ms107_84672));
  1631. }
  1632. /*FI]*/
  1633. return R;
  1634. }
  1635.  
  1636.  
  1637. T6 r11is_flag_no_warning(T0* a1){
  1638. T6 R=0;
  1639. /*[IF*/
  1640. if(r7is_equal(ms12_17743,a1)){
  1641. R=1;
  1642. /*[IRF3.3set_no_warning*/((((T66*)((T66*)(oBC13eh))))->_no_warning)=(1);
  1643. /*]*/
  1644. }
  1645. /*FI]*/
  1646. return R;
  1647. }
  1648.  
  1649.  
  1650. void r11search_for_cc_flag(T2 a1){
  1651. T0* _c_compiler=NULL;
  1652. T2 _i=0;
  1653. _i=1;
  1654. while (!((_i)>(a1)))
  1655. {
  1656. /*[IF*/
  1657. if(r7is_equal((T7*)(((T0*)ms12_729)),r11argument(_i))){
  1658. /*[IF*/
  1659. if((_i)<(a1)){
  1660. _i=(_i)+(1);
  1661. _c_compiler=r11argument(_i);
  1662. _i=(a1)+(1);
  1663. }
  1664. /*FI]*/
  1665. }
  1666. /*FI]*/
  1667. _i=(_i)+(1);
  1668. }
  1669. r43set_c_compiler((T43*)(r11system_tools()),_c_compiler);
  1670. }
  1671.  
  1672.  
  1673. T6 r11is_flag_debug_check(T0* a1){
  1674. T6 R=0;
  1675. /*[IF*/
  1676. if(r7is_equal(ms12_20940,a1)){
  1677. R=1;
  1678. /*[IRF3.3set_debug_check*/((((T47*)((T47*)(oBC13run_control))))->_level)=(1);
  1679. /*]*/
  1680. }
  1681. /*FI]*/
  1682. return R;
  1683. }
  1684.  
  1685.  
  1686. T0* r11argument(T2 a1){
  1687. T0* R=NULL;
  1688. R=/*(IRF4.6item*/((/*RF2*/((T31*)(r11command_arguments()))->_storage/*4*/))[a1]/*)*/;
  1689. return R;
  1690. }
  1691.  
  1692.  
  1693. T6 r11is_flag_require_check(T11* C,T0* a1){
  1694. T6 R=0;
  1695. /*[IF*/
  1696. if(r7is_equal(ms12_27832,a1)){
  1697. R=1;
  1698. /*[IRF3.3set_require_check*/((((T47*)((T47*)(oBC13run_control))))->_level)=(-4);
  1699. /*]*/
  1700. r11check_for_level(C,a1);
  1701. }
  1702. /*FI]*/
  1703. return R;
  1704. }
  1705.  
  1706.  
  1707. T0* r11string_aliaser(void){
  1708. if(fBC13string_aliaser==0){fBC13string_aliaser=1;{
  1709. {T21*n=((T21*)malloc(1));
  1710. oBC13string_aliaser=((T0*)n);
  1711. /*[IRF3.2make*//*[IRF3.6add1*/{T0* b1=((T0*)ms15_696);
  1712. r23put((T23*)(oBC21memory),b1,b1);
  1713. }/*]*/
  1714. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1915);
  1715. r23put((T23*)(oBC21memory),b1,b1);
  1716. }/*]*/
  1717. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_669);
  1718. r23put((T23*)(oBC21memory),b1,b1);
  1719. }/*]*/
  1720. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1980);
  1721. r23put((T23*)(oBC21memory),b1,b1);
  1722. }/*]*/
  1723. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9234);
  1724. r23put((T23*)(oBC21memory),b1,b1);
  1725. }/*]*/
  1726. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6405);
  1727. r23put((T23*)(oBC21memory),b1,b1);
  1728. }/*]*/
  1729. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12529);
  1730. r23put((T23*)(oBC21memory),b1,b1);
  1731. }/*]*/
  1732. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9801);
  1733. r23put((T23*)(oBC21memory),b1,b1);
  1734. }/*]*/
  1735. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16393);
  1736. r23put((T23*)(oBC21memory),b1,b1);
  1737. }/*]*/
  1738. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12550);
  1739. r23put((T23*)(oBC21memory),b1,b1);
  1740. }/*]*/
  1741. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_4728);
  1742. r23put((T23*)(oBC21memory),b1,b1);
  1743. }/*]*/
  1744. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_10740);
  1745. r23put((T23*)(oBC21memory),b1,b1);
  1746. }/*]*/
  1747. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12030);
  1748. r23put((T23*)(oBC21memory),b1,b1);
  1749. }/*]*/
  1750. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_14817);
  1751. r23put((T23*)(oBC21memory),b1,b1);
  1752. }/*]*/
  1753. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6307);
  1754. r23put((T23*)(oBC21memory),b1,b1);
  1755. }/*]*/
  1756. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6643);
  1757. r23put((T23*)(oBC21memory),b1,b1);
  1758. }/*]*/
  1759. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12595);
  1760. r23put((T23*)(oBC21memory),b1,b1);
  1761. }/*]*/
  1762. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_5508);
  1763. r23put((T23*)(oBC21memory),b1,b1);
  1764. }/*]*/
  1765. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_17448);
  1766. r23put((T23*)(oBC21memory),b1,b1);
  1767. }/*]*/
  1768. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1216);
  1769. r23put((T23*)(oBC21memory),b1,b1);
  1770. }/*]*/
  1771. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7928);
  1772. r23put((T23*)(oBC21memory),b1,b1);
  1773. }/*]*/
  1774. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6776);
  1775. r23put((T23*)(oBC21memory),b1,b1);
  1776. }/*]*/
  1777. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12804);
  1778. r23put((T23*)(oBC21memory),b1,b1);
  1779. }/*]*/
  1780. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1168);
  1781. r23put((T23*)(oBC21memory),b1,b1);
  1782. }/*]*/
  1783. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7576);
  1784. r23put((T23*)(oBC21memory),b1,b1);
  1785. }/*]*/
  1786. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_4956);
  1787. r23put((T23*)(oBC21memory),b1,b1);
  1788. }/*]*/
  1789. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16692);
  1790. r23put((T23*)(oBC21memory),b1,b1);
  1791. }/*]*/
  1792. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_19124);
  1793. r23put((T23*)(oBC21memory),b1,b1);
  1794. }/*]*/
  1795. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_921);
  1796. r23put((T23*)(oBC21memory),b1,b1);
  1797. }/*]*/
  1798. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_10680);
  1799. r23put((T23*)(oBC21memory),b1,b1);
  1800. }/*]*/
  1801. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_64);
  1802. r23put((T23*)(oBC21memory),b1,b1);
  1803. }/*]*/
  1804. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_368);
  1805. r23put((T23*)(oBC21memory),b1,b1);
  1806. }/*]*/
  1807. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_61);
  1808. r23put((T23*)(oBC21memory),b1,b1);
  1809. }/*]*/
  1810. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_246);
  1811. r23put((T23*)(oBC21memory),b1,b1);
  1812. }/*]*/
  1813. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_62);
  1814. r23put((T23*)(oBC21memory),b1,b1);
  1815. }/*]*/
  1816. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9408);
  1817. r23put((T23*)(oBC21memory),b1,b1);
  1818. }/*]*/
  1819. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_242);
  1820. r23put((T23*)(oBC21memory),b1,b1);
  1821. }/*]*/
  1822. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_60);
  1823. r23put((T23*)(oBC21memory),b1,b1);
  1824. }/*]*/
  1825. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_45);
  1826. r23put((T23*)(oBC21memory),b1,b1);
  1827. }/*]*/
  1828. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_42);
  1829. r23put((T23*)(oBC21memory),b1,b1);
  1830. }/*]*/
  1831. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_216);
  1832. r23put((T23*)(oBC21memory),b1,b1);
  1833. }/*]*/
  1834. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1011);
  1835. r23put((T23*)(oBC21memory),b1,b1);
  1836. }/*]*/
  1837. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_450);
  1838. r23put((T23*)(oBC21memory),b1,b1);
  1839. }/*]*/
  1840. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8211);
  1841. r23put((T23*)(oBC21memory),b1,b1);
  1842. }/*]*/
  1843. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_43);
  1844. r23put((T23*)(oBC21memory),b1,b1);
  1845. }/*]*/
  1846. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_94);
  1847. r23put((T23*)(oBC21memory),b1,b1);
  1848. }/*]*/
  1849. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_552);
  1850. r23put((T23*)(oBC21memory),b1,b1);
  1851. }/*]*/
  1852. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_564);
  1853. r23put((T23*)(oBC21memory),b1,b1);
  1854. }/*]*/
  1855. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_47);
  1856. r23put((T23*)(oBC21memory),b1,b1);
  1857. }/*]*/
  1858. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_188);
  1859. r23put((T23*)(oBC21memory),b1,b1);
  1860. }/*]*/
  1861. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_35);
  1862. r23put((T23*)(oBC21memory),b1,b1);
  1863. }/*]*/
  1864. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1035a);
  1865. r23put((T23*)(oBC21memory),b1,b1);
  1866. }/*]*/
  1867. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11424);
  1868. r23put((T23*)(oBC21memory),b1,b1);
  1869. }/*]*/
  1870. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2600);
  1871. r23put((T23*)(oBC21memory),b1,b1);
  1872. }/*]*/
  1873. r21add2(((T0*)ms15_22524));
  1874. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6702);
  1875. r23put((T23*)(oBC21memory),b1,b1);
  1876. }/*]*/
  1877. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11776);
  1878. r23put((T23*)(oBC21memory),b1,b1);
  1879. }/*]*/
  1880. r21add2(((T0*)ms15_29246));
  1881. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13419);
  1882. r23put((T23*)(oBC21memory),b1,b1);
  1883. }/*]*/
  1884. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2765a);
  1885. r23put((T23*)(oBC21memory),b1,b1);
  1886. }/*]*/
  1887. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1644);
  1888. r23put((T23*)(oBC21memory),b1,b1);
  1889. }/*]*/
  1890. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_19294);
  1891. r23put((T23*)(oBC21memory),b1,b1);
  1892. }/*]*/
  1893. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1772);
  1894. r23put((T23*)(oBC21memory),b1,b1);
  1895. }/*]*/
  1896. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15070);
  1897. r23put((T23*)(oBC21memory),b1,b1);
  1898. }/*]*/
  1899. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15570);
  1900. r23put((T23*)(oBC21memory),b1,b1);
  1901. }/*]*/
  1902. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27034);
  1903. r23put((T23*)(oBC21memory),b1,b1);
  1904. }/*]*/
  1905. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15190);
  1906. r23put((T23*)(oBC21memory),b1,b1);
  1907. }/*]*/
  1908. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15890);
  1909. r23put((T23*)(oBC21memory),b1,b1);
  1910. }/*]*/
  1911. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_19151);
  1912. r23put((T23*)(oBC21memory),b1,b1);
  1913. }/*]*/
  1914. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13491);
  1915. r23put((T23*)(oBC21memory),b1,b1);
  1916. }/*]*/
  1917. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_28490);
  1918. r23put((T23*)(oBC21memory),b1,b1);
  1919. }/*]*/
  1920. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8750);
  1921. r23put((T23*)(oBC21memory),b1,b1);
  1922. }/*]*/
  1923. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_19437);
  1924. r23put((T23*)(oBC21memory),b1,b1);
  1925. }/*]*/
  1926. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22824a);
  1927. r23put((T23*)(oBC21memory),b1,b1);
  1928. }/*]*/
  1929. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_23829);
  1930. r23put((T23*)(oBC21memory),b1,b1);
  1931. }/*]*/
  1932. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27272);
  1933. r23put((T23*)(oBC21memory),b1,b1);
  1934. }/*]*/
  1935. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_10528);
  1936. r23put((T23*)(oBC21memory),b1,b1);
  1937. }/*]*/
  1938. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13707);
  1939. r23put((T23*)(oBC21memory),b1,b1);
  1940. }/*]*/
  1941. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6846);
  1942. r23put((T23*)(oBC21memory),b1,b1);
  1943. }/*]*/
  1944. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1664);
  1945. r23put((T23*)(oBC21memory),b1,b1);
  1946. }/*]*/
  1947. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2760);
  1948. r23put((T23*)(oBC21memory),b1,b1);
  1949. }/*]*/
  1950. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2730a);
  1951. r23put((T23*)(oBC21memory),b1,b1);
  1952. }/*]*/
  1953. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22248);
  1954. r23put((T23*)(oBC21memory),b1,b1);
  1955. }/*]*/
  1956. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22788);
  1957. r23put((T23*)(oBC21memory),b1,b1);
  1958. }/*]*/
  1959. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_30660);
  1960. r23put((T23*)(oBC21memory),b1,b1);
  1961. }/*]*/
  1962. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13995);
  1963. r23put((T23*)(oBC21memory),b1,b1);
  1964. }/*]*/
  1965. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_432);
  1966. r23put((T23*)(oBC21memory),b1,b1);
  1967. }/*]*/
  1968. r21add2(((T0*)ms15_22596));
  1969. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_60104);
  1970. r23put((T23*)(oBC21memory),b1,b1);
  1971. }/*]*/
  1972. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_24960);
  1973. r23put((T23*)(oBC21memory),b1,b1);
  1974. }/*]*/
  1975. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_34432);
  1976. r23put((T23*)(oBC21memory),b1,b1);
  1977. }/*]*/
  1978. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11144);
  1979. r23put((T23*)(oBC21memory),b1,b1);
  1980. }/*]*/
  1981. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_18964);
  1982. r23put((T23*)(oBC21memory),b1,b1);
  1983. }/*]*/
  1984. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1724);
  1985. r23put((T23*)(oBC21memory),b1,b1);
  1986. }/*]*/
  1987. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1744);
  1988. r23put((T23*)(oBC21memory),b1,b1);
  1989. }/*]*/
  1990. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2765);
  1991. r23put((T23*)(oBC21memory),b1,b1);
  1992. }/*]*/
  1993. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6762);
  1994. r23put((T23*)(oBC21memory),b1,b1);
  1995. }/*]*/
  1996. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1656);
  1997. r23put((T23*)(oBC21memory),b1,b1);
  1998. }/*]*/
  1999. r21add2(((T0*)ms15_60016));
  2000. r21add2(((T0*)ms15_26880));
  2001. r21add2(((T0*)ms15_33240));
  2002. r21add2(((T0*)ms15_21624));
  2003. r21add2(((T0*)ms15_60060));
  2004. r21add2(((T0*)ms15_26908));
  2005. r21add2(((T0*)ms15_33270));
  2006. r21add2(((T0*)ms15_21648));
  2007. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_17886);
  2008. r23put((T23*)(oBC21memory),b1,b1);
  2009. }/*]*/
  2010. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22824);
  2011. r23put((T23*)(oBC21memory),b1,b1);
  2012. }/*]*/
  2013. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_21192);
  2014. r23put((T23*)(oBC21memory),b1,b1);
  2015. }/*]*/
  2016. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2785);
  2017. r23put((T23*)(oBC21memory),b1,b1);
  2018. }/*]*/
  2019. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11496);
  2020. r23put((T23*)(oBC21memory),b1,b1);
  2021. }/*]*/
  2022. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_53940);
  2023. r23put((T23*)(oBC21memory),b1,b1);
  2024. }/*]*/
  2025. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1035);
  2026. r23put((T23*)(oBC21memory),b1,b1);
  2027. }/*]*/
  2028. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2440);
  2029. r23put((T23*)(oBC21memory),b1,b1);
  2030. }/*]*/
  2031. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2445);
  2032. r23put((T23*)(oBC21memory),b1,b1);
  2033. }/*]*/
  2034. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_32730);
  2035. r23put((T23*)(oBC21memory),b1,b1);
  2036. }/*]*/
  2037. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12744);
  2038. r23put((T23*)(oBC21memory),b1,b1);
  2039. }/*]*/
  2040. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13662);
  2041. r23put((T23*)(oBC21memory),b1,b1);
  2042. }/*]*/
  2043. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8547);
  2044. r23put((T23*)(oBC21memory),b1,b1);
  2045. }/*]*/
  2046. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8505);
  2047. r23put((T23*)(oBC21memory),b1,b1);
  2048. }/*]*/
  2049. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9436);
  2050. r23put((T23*)(oBC21memory),b1,b1);
  2051. }/*]*/
  2052. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_14193);
  2053. r23put((T23*)(oBC21memory),b1,b1);
  2054. }/*]*/
  2055. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12915a);
  2056. r23put((T23*)(oBC21memory),b1,b1);
  2057. }/*]*/
  2058. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12915);
  2059. r23put((T23*)(oBC21memory),b1,b1);
  2060. }/*]*/
  2061. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_34528);
  2062. r23put((T23*)(oBC21memory),b1,b1);
  2063. }/*]*/
  2064. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13752);
  2065. r23put((T23*)(oBC21memory),b1,b1);
  2066. }/*]*/
  2067. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11336);
  2068. r23put((T23*)(oBC21memory),b1,b1);
  2069. }/*]*/
  2070. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_26156);
  2071. r23put((T23*)(oBC21memory),b1,b1);
  2072. }/*]*/
  2073. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11376);
  2074. r23put((T23*)(oBC21memory),b1,b1);
  2075. }/*]*/
  2076. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27580);
  2077. r23put((T23*)(oBC21memory),b1,b1);
  2078. }/*]*/
  2079. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_33990);
  2080. r23put((T23*)(oBC21memory),b1,b1);
  2081. }/*]*/
  2082. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27443);
  2083. r23put((T23*)(oBC21memory),b1,b1);
  2084. }/*]*/
  2085. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_40358);
  2086. r23put((T23*)(oBC21memory),b1,b1);
  2087. }/*]*/
  2088. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_25584);
  2089. r23put((T23*)(oBC21memory),b1,b1);
  2090. }/*]*/
  2091. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7380);
  2092. r23put((T23*)(oBC21memory),b1,b1);
  2093. }/*]*/
  2094. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2730);
  2095. r23put((T23*)(oBC21memory),b1,b1);
  2096. }/*]*/
  2097. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7530);
  2098. r23put((T23*)(oBC21memory),b1,b1);
  2099. }/*]*/
  2100. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13977);
  2101. r23put((T23*)(oBC21memory),b1,b1);
  2102. }/*]*/
  2103. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_14175);
  2104. r23put((T23*)(oBC21memory),b1,b1);
  2105. }/*]*/
  2106. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16970);
  2107. r23put((T23*)(oBC21memory),b1,b1);
  2108. }/*]*/
  2109. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8820);
  2110. r23put((T23*)(oBC21memory),b1,b1);
  2111. }/*]*/
  2112. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7326);
  2113. r23put((T23*)(oBC21memory),b1,b1);
  2114. }/*]*/
  2115. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22716);
  2116. r23put((T23*)(oBC21memory),b1,b1);
  2117. }/*]*/
  2118. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12978);
  2119. r23put((T23*)(oBC21memory),b1,b1);
  2120. }/*]*/
  2121. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16770);
  2122. r23put((T23*)(oBC21memory),b1,b1);
  2123. }/*]*/
  2124. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16850);
  2125. r23put((T23*)(oBC21memory),b1,b1);
  2126. }/*]*/
  2127. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9051);
  2128. r23put((T23*)(oBC21memory),b1,b1);
  2129. }/*]*/
  2130. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_21300);
  2131. r23put((T23*)(oBC21memory),b1,b1);
  2132. }/*]*/
  2133. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_56720);
  2134. r23put((T23*)(oBC21memory),b1,b1);
  2135. }/*]*/
  2136. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1800);
  2137. r23put((T23*)(oBC21memory),b1,b1);
  2138. }/*]*/
  2139. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2780);
  2140. r23put((T23*)(oBC21memory),b1,b1);
  2141. }/*]*/
  2142. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27456);
  2143. r23put((T23*)(oBC21memory),b1,b1);
  2144. }/*]*/
  2145. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15650);
  2146. r23put((T23*)(oBC21memory),b1,b1);
  2147. }/*]*/
  2148. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9275);
  2149. r23put((T23*)(oBC21memory),b1,b1);
  2150. }/*]*/
  2151. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_58075);
  2152. r23put((T23*)(oBC21memory),b1,b1);
  2153. }/*]*/
  2154. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22140);
  2155. r23put((T23*)(oBC21memory),b1,b1);
  2156. }/*]*/
  2157. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13833);
  2158. r23put((T23*)(oBC21memory),b1,b1);
  2159. }/*]*/
  2160. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7314);
  2161. r23put((T23*)(oBC21memory),b1,b1);
  2162. }/*]*/
  2163. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1608);
  2164. r23put((T23*)(oBC21memory),b1,b1);
  2165. }/*]*/
  2166. /*]*/
  2167. }
  2168. }}
  2169. return oBC13string_aliaser;
  2170. }
  2171.  
  2172.  
  2173. T6 r11is_flag_verbose(T0* a1){
  2174. T6 R=0;
  2175. /*[IF*/
  2176. if(r7is_equal(ms12_10272,a1)){
  2177. R=1;
  2178. }
  2179. /*FI]*/
  2180. return R;
  2181. }
  2182.  
  2183.  
  2184. void r11check_for_level(T11* C,T0* a1){
  2185. /*[IF*/
  2186. if(((/*RF2*/(C)->_level_flag/*0*/))!=((void*)(NULL))){
  2187. /*[IF*/
  2188. if(!(r7is_equal((T7*)((/*RF2*/(C)->_level_flag/*0*/)),a1))){
  2189. r35w_put_string(r11command_name());
  2190. r35w_put_string(((T0*)ms12_32474));
  2191. r35w_put_string((/*RF2*/(C)->_level_flag/*0*/));
  2192. r35w_put_string(((T0*)ms12_7623));
  2193. r35w_put_string(a1);
  2194. r35w_put_string(((T0*)ms14_46));
  2195. exit(1);
  2196. }
  2197. /*FI]*/
  2198. }
  2199. else{
  2200. (/*SFN*/C->_level_flag)=a1;
  2201. }
  2202. /*FI]*/
  2203. }
  2204.  
  2205.  
  2206. T6 r11is_flag_no_check(T11* C,T0* a1){
  2207. T6 R=0;
  2208. /*[IF*/
  2209. if(r7is_equal(ms12_12807,a1)){
  2210. R=1;
  2211. /*[IRF3.3set_no_check*/((((T47*)((T47*)(oBC13run_control))))->_level)=(-5);
  2212. /*]*/
  2213. r11check_for_level(C,a1);
  2214. }
  2215. /*FI]*/
  2216. return R;
  2217. }
  2218.  
  2219.  
  2220. T6 r11is_flag_o(T11* C,T0* a1,T2 a2,T2 a3,T0* a4){
  2221. T6 R=0;
  2222. T0* _output_name=NULL;
  2223. /*[IF*/
  2224. if(r7is_equal(ms12_312,a1)){
  2225. R=1;
  2226. /*[IF*/
  2227. if((a2)<(a3)){
  2228. _output_name=r11argument((a2)+(1));
  2229. /*[IF*/
  2230. if(r7has_suffix(((T7*)_output_name),((T0*)ms13_294))){
  2231. r35w_put_string(((T0*)ms12_25168));
  2232. r35w_put_string(_output_name);
  2233. r35w_put_string(((T0*)ms12_296296));
  2234. exit(1);
  2235. }
  2236. /*FI]*/
  2237. /*[IRF3.3set_output_name*/((((T47*)((T47*)(oBC13run_control))))->_output_name)=(_output_name);
  2238. /*]*/
  2239. }
  2240. else{
  2241. r35w_put_string(r11command_name());
  2242. r35w_put_string(((T0*)ms12_27208));
  2243. exit(1);
  2244. }
  2245. /*FI]*/
  2246. }
  2247. /*FI]*/
  2248. return R;
  2249. }
  2250.  
  2251.  
  2252. T6 r11is_flag_all_check(T11* C,T0* a1){
  2253. T6 R=0;
  2254. /*[IF*/
  2255. if(r7is_equal(ms12_15230,a1)){
  2256. R=1;
  2257. /*[IRF3.3set_all_check*/((((T47*)((T47*)(oBC13run_control))))->_level)=(0);
  2258. /*]*/
  2259. r11check_for_level(C,a1);
  2260. }
  2261. /*FI]*/
  2262. return R;
  2263. }
  2264.  
  2265.  
  2266. T0* r11command_name(void){
  2267. T0* R=NULL;
  2268. R=((T0*)ms12_20688);
  2269. return R;
  2270. }
  2271. T0*oBC1command_arguments=NULL;
  2272. int fBC1command_arguments=0;
  2273.  
  2274.  
  2275. T0* r11command_arguments(void){
  2276. if(fBC1command_arguments==0){fBC1command_arguments=1;{
  2277. T0* _arg=NULL;
  2278. T2 _i=0;
  2279. _i=se_argc;
  2280. {T31*n=((T31*)malloc(sizeof(*n))/*16*/);
  2281. *n=M31;
  2282. oBC1command_arguments=((T0*)n);
  2283. r31make(n,_i);
  2284. }
  2285. while (!((_i)==(0)))
  2286. {
  2287. _i=(_i)-(1);
  2288. _arg=((T0*)se_string_from_external_copy(se_argv[_i]));
  2289. /*[IRF3.5put*/((/*RF2*/(((T31*)oBC1command_arguments))->_storage/*4*/))[_i]=(_arg);
  2290. /*]*/
  2291. }
  2292. }}
  2293. return oBC1command_arguments;
  2294. }
  2295.  
  2296.  
  2297. T6 r11is_flag_ensure_check(T11* C,T0* a1){
  2298. T6 R=0;
  2299. /*[IF*/
  2300. if(r7is_equal(ms12_24427,a1)){
  2301. R=1;
  2302. /*[IRF3.3set_ensure_check*/((((T47*)((T47*)(oBC13run_control))))->_level)=(-3);
  2303. /*]*/
  2304. r11check_for_level(C,a1);
  2305. }
  2306. /*FI]*/
  2307. return R;
  2308. }
  2309.  
  2310.  
  2311. T6 r11is_flag_cecil(T11* C,T0* a1,T2 a2,T2 a3){
  2312. T6 R=0;
  2313. /*[IF*/
  2314. if(r7is_equal(ms12_6582,a1)){
  2315. R=1;
  2316. /*[IF*/
  2317. if((a2)<(a3)){
  2318. /*[IRF3.3set_cecil_path*/((((T47*)((T47*)(oBC13run_control))))->_cecil_path)=(r11argument((a2)+(1)));
  2319. /*]*/
  2320. }
  2321. else{
  2322. r35w_put_string(r11command_name());
  2323. r35w_put_string(((T0*)ms12_29440));
  2324. exit(1);
  2325. }
  2326. /*FI]*/
  2327. }
  2328. /*FI]*/
  2329. return R;
  2330. }
  2331.  
  2332.  
  2333. T6 r11is_flag_no_style_warning(T0* a1){
  2334. T6 R=0;
  2335. /*[IF*/
  2336. if(r7is_equal(ms12_37859,a1)){
  2337. R=1;
  2338. /*[IRF3.3set_no_style_warning*/((((T34*)((T34*)(oBC13eiffel_parser))))->_no_style_warning)=(1);
  2339. /*]*/
  2340. }
  2341. /*FI]*/
  2342. return R;
  2343. }
  2344.  
  2345.  
  2346. T6 r11is_flag_case_insensitive(T0* a1){
  2347. T6 R=0;
  2348. /*[IF*/
  2349. if(r7is_equal(ms12_36958,a1)){
  2350. R=1;
  2351. /*[IRF3.3set_case_insensitive*/((((T34*)((T34*)(oBC13eiffel_parser))))->_case_insensitive)=(1);
  2352. /*]*/
  2353. }
  2354. /*FI]*/
  2355. return R;
  2356. }
  2357.  
  2358.  
  2359. void r11make(T11* C){
  2360. T0* _arg=NULL;
  2361. T2 _argi=0;
  2362. T2 _argc=0;
  2363. /*[IRF3.3set_drop_comments*/((((T34*)((T34*)(oBC13eiffel_parser))))->_drop_comments)=(1);
  2364. /*]*/
  2365. _argc=/*(IRF4.9argument_count*/(/*RF2*/((T31*)(r11command_arguments()))->_upper/*12*/)/*)*/;
  2366. /*[IF*/
  2367. if((_argc)<(1)){
  2368. r43bad_use_exit((T43*)(r11system_tools()),r11command_name());
  2369. }
  2370. /*FI]*/
  2371. /*[IRF3.2search_for_verbose_flag*/{T2 _i=0;
  2372. _i=/*(IRF4.9argument_count*/(/*RF2*/((T31*)(r11command_arguments()))->_upper/*12*/)/*)*/;
  2373. while (!((_i)==(0)))
  2374. {
  2375. /*[IF*/
  2376. if(r11is_flag_verbose(r11argument(_i))){
  2377. /*[IRF3.3set_verbose*/((((T35*)((T35*)(oBC13echo))))->_verbose)=(1);
  2378. /*]*/
  2379. _i=0;
  2380. }
  2381. else{
  2382. _i=(_i)-(1);
  2383. }
  2384. /*FI]*/
  2385. }
  2386. }/*]*/
  2387. r11search_for_cc_flag(_argc);
  2388. _argi=1;
  2389. while (!((_argi)>(_argc)))
  2390. {
  2391. _arg=r11argument(_argi);
  2392. /*[IF*/
  2393. if(r11is_flag_case_insensitive(_arg)){
  2394. _argi=(_argi)+(1);
  2395. }
  2396.  else if(r11is_flag_no_style_warning(_arg)){
  2397. _argi=(_argi)+(1);
  2398. }
  2399.  else if(r11is_flag_no_warning(_arg)){
  2400. _argi=(_argi)+(1);
  2401. }
  2402.  else if(r11is_flag_version(C,_arg)){
  2403. _argi=(_argi)+(1);
  2404. }
  2405.  else if(r11is_flag_verbose(_arg)){
  2406. _argi=(_argi)+(1);
  2407. }
  2408.  else if(r11is_flag_boost(C,_arg)){
  2409. _argi=(_argi)+(1);
  2410. }
  2411.  else if(r11is_flag_no_check(C,_arg)){
  2412. _argi=(_argi)+(1);
  2413. }
  2414.  else if(r11is_flag_require_check(C,_arg)){
  2415. _argi=(_argi)+(1);
  2416. }
  2417.  else if(r11is_flag_ensure_check(C,_arg)){
  2418. _argi=(_argi)+(1);
  2419. }
  2420.  else if(r11is_flag_invariant_check(C,_arg)){
  2421. _argi=(_argi)+(1);
  2422. }
  2423.  else if(r11is_flag_loop_check(C,_arg)){
  2424. _argi=(_argi)+(1);
  2425. }
  2426.  else if(r11is_flag_all_check(C,_arg)){
  2427. _argi=(_argi)+(1);
  2428. }
  2429.  else if(r11is_flag_debug_check(_arg)){
  2430. _argi=(_argi)+(1);
  2431. }
  2432.  else if(r11is_flag_cecil(C,_arg,_argi,_argc)){
  2433. _argi=(_argi)+(2);
  2434. }
  2435.  else if(r11is_flag_o(C,_arg,_argi,_argc,oBC13cpp)){
  2436. _argi=(_argi)+(2);
  2437. }
  2438.  else if(r7is_equal(ms11_10800,_arg)){
  2439. /*[IRF3.3set_no_main*/((((T325*)((T325*)(oBC13cpp))))->_no_main)=(1);
  2440. /*]*/
  2441. _argi=(_argi)+(1);
  2442. }
  2443.  else if(r7is_equal(ms11_6348,_arg)){
  2444. r344no_gc((T344*)(oBC13gc_handler));
  2445. _argi=(_argi)+(1);
  2446. }
  2447.  else if(r7is_equal(ms11_10680,_arg)){
  2448. r344set_info_flag((T344*)(oBC13gc_handler));
  2449. _argi=(_argi)+(1);
  2450. }
  2451.  else if(r7is_equal(ms11_13356,_arg)){
  2452. /*[IRF3.3set_no_strip*/((((T43*)((T43*)(r11system_tools()))))->_no_strip)=(1);
  2453. /*]*/
  2454. _argi=(_argi)+(1);
  2455. }
  2456.  else if(r7is_equal(ms11_13680,_arg)){
  2457. /*[IRF3.3set_no_split*/((((T325*)((T325*)(oBC13cpp))))->_no_split)=(1);
  2458. /*]*/
  2459. _argi=(_argi)+(1);
  2460. }
  2461.  else if(r7is_equal(ms11_6462,_arg)){
  2462. /*[IRF3.3set_trace*/((((T47*)((T47*)(oBC13run_control))))->_trace)=(1);
  2463. /*]*/
  2464. _argi=(_argi)+(1);
  2465. }
  2466.  else if(r7is_equal(ms11_6996,_arg)){
  2467. /*[IRF3.3set_wedit*/((((T325*)((T325*)(oBC13cpp))))->_wedit)=(1);
  2468. /*]*/
  2469. _argi=(_argi)+(1);
  2470. }
  2471.  else if(r7is_equal((T7*)(((T0*)ms12_729)),_arg)){
  2472. /*[IF*/
  2473. if((_argi)<(_argc)){
  2474. _argi=(_argi)+(2);
  2475. }
  2476. else{
  2477. r35w_put_string(r11command_name());
  2478. r35w_put_string(((T0*)ms11_30586));
  2479. exit(1);
  2480. }
  2481. /*FI]*/
  2482. }
  2483.  else if((_argi)<(_argc)){
  2484. _argi=r43extra_arg((T43*)(r11system_tools()),_arg,_argi,r11argument((_argi)+(1)));
  2485. }
  2486. else{
  2487. _argi=r43extra_arg((T43*)(r11system_tools()),_arg,_argi,NULL);
  2488. }
  2489. /*FI]*/
  2490. }
  2491. r11check_for_root_class(C);
  2492. /*[IF*/
  2493. if((/*RF2*/((T47*)(oBC13run_control))->_trace/*4*/)){
  2494. /*[IF*/
  2495. if((/*RF2*/((T325*)(oBC13cpp))->_wedit/*54*/)){
  2496. r35w_put_string(r11command_name());
  2497. r35w_put_string(((T0*)ms11_27612a));
  2498. exit(1);
  2499. }
  2500. /*FI]*/
  2501. /*[IF*/
  2502. if(r47boost((T47*)(oBC13run_control))){
  2503. r35w_put_string(r11command_name());
  2504. r35w_put_string(((T0*)ms11_27612));
  2505. exit(1);
  2506. }
  2507. /*FI]*/
  2508. }
  2509. /*FI]*/
  2510. r49compile_to_c((T49*)(oBC13small_eiffel));
  2511. /*[IRF3.2disk_save*/((/*UT*/(void)((T39*)(r11id_provider()))));
  2512. {T0* _str=NULL;
  2513. T0* _sfw=NULL;
  2514. T2 _id=0;
  2515. T2 _i=0;
  2516. {T48*n=((T48*)malloc(sizeof(*n))/*8*/);
  2517. *n=M48;
  2518. /*[IRF3.1make*//*]*/
  2519. _sfw=((T0*)n);
  2520. }
  2521. r35sfw_connect((T35*)(oBC13echo),_sfw,r43id_file_path((T43*)(r39system_tools())));
  2522. _i=1;
  2523. while (!((_i)>((/*RF2*/((T42*)(oBC39id_memory))->_count/*36*/))))
  2524. {
  2525. _str=r42key((T42*)(oBC39id_memory),_i);
  2526. _id=r42item((T42*)(oBC39id_memory),_i);
  2527. r48put_integer(((T48*)_sfw),_id);
  2528. /*[IRF3.6put_character*/{T48* C1=((T48*)_sfw);
  2529. T3 b1=((T3)'\40');
  2530. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2531. }/*]*/
  2532. /*[IRF3.6put_character*/{T48* C1=((T48*)_sfw);
  2533. T3 b1=((T3)'\42');
  2534. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2535. }/*]*/
  2536. r48put_string(((T48*)_sfw),_str);
  2537. /*[IRF3.6put_character*/{T48* C1=((T48*)_sfw);
  2538. T3 b1=((T3)'\42');
  2539. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2540. }/*]*/
  2541. /*[IRF3.6put_character*/{T48* C1=((T48*)_sfw);
  2542. T3 b1=((T3)'\40');
  2543. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2544. }/*]*/
  2545. r49id_extra_information(_sfw,_str);
  2546. /*[IRF3.6put_character*/{T48* C1=((T48*)_sfw);
  2547. T3 b1=((T3)'\n');
  2548. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2549. }/*]*/
  2550. _i=(_i)+(1);
  2551. }
  2552. r48disconnect(((T48*)_sfw));
  2553. }/*]*/
  2554. /*[IRF3.2echo_information*/((/*UT*/(void)((T21*)(r11string_aliaser()))));
  2555. r35put_string((T35*)(oBC13echo),((T0*)ms21_17578));
  2556. r35put_integer((T35*)(oBC13echo),(/*RF2*/((T23*)(oBC21memory))->_count/*32*/));
  2557. r35put_string((T35*)(oBC13echo),((T0*)ms14_112));
  2558. /*]*/
  2559. }
  2560.  
  2561.  
  2562. T6 r11is_flag_boost(T11* C,T0* a1){
  2563. T6 R=0;
  2564. /*[IF*/
  2565. if(r7is_equal(ms12_7056,a1)){
  2566. R=1;
  2567. /*[IRF3.3set_boost*/((((T47*)((T47*)(oBC13run_control))))->_level)=(-6);
  2568. /*]*/
  2569. r11check_for_level(C,a1);
  2570. }
  2571. /*FI]*/
  2572. return R;
  2573. }
  2574.  
  2575.  
  2576. T6 r11is_flag_invariant_check(T11* C,T0* a1){
  2577. T6 R=0;
  2578. /*[IF*/
  2579. if(r7is_equal(ms12_34992,a1)){
  2580. R=1;
  2581. /*[IRF3.3set_invariant_check*/((((T47*)((T47*)(oBC13run_control))))->_level)=(-2);
  2582. /*]*/
  2583. r11check_for_level(C,a1);
  2584. }
  2585. /*FI]*/
  2586. return R;
  2587. }
  2588.  
  2589.  
  2590. void r11check_for_root_class(T11* C){
  2591. /*[IF*/
  2592. if(((/*RF2*/((T47*)(oBC13run_control))->_root_class/*5*/))==((void*)(NULL))){
  2593. r35w_put_string(r11command_name());
  2594. r35w_put_string(((T0*)ms12_35238));
  2595. exit(1);
  2596. }
  2597. /*FI]*/
  2598. }
  2599.  
  2600.  
  2601. T0* r11system_tools(void){
  2602. if(fBC13system_tools==0){fBC13system_tools=1;{
  2603. {T43*n=((T43*)malloc(sizeof(*n))/*17*/);
  2604. *n=M43;
  2605. oBC13system_tools=((T0*)n);
  2606. r43make(n);
  2607. }
  2608. }}
  2609. return oBC13system_tools;
  2610. }
  2611.  
  2612.  
  2613. T6 r11is_flag_loop_check(T11* C,T0* a1){
  2614. T6 R=0;
  2615. /*[IF*/
  2616. if(r7is_equal(ms12_18304,a1)){
  2617. R=1;
  2618. /*[IRF3.3set_loop_check*/((((T47*)((T47*)(oBC13run_control))))->_level)=(-1);
  2619. /*]*/
  2620. r11check_for_level(C,a1);
  2621. }
  2622. /*FI]*/
  2623. return R;
  2624. }
  2625.  
  2626.  
  2627. T6 r11is_flag_version(T11* C,T0* a1){
  2628. T6 R=0;
  2629. /*[IF*/
  2630. if(r7is_equal(ms12_10984,a1)){
  2631. R=1;
  2632. r36put_string((T36*)(oBC1std_output),((T0*)ms12_24020));
  2633. r36put_string((T36*)(oBC1std_output),r11command_name());
  2634. r36put_string((T36*)(oBC1std_output),((T0*)ms12_2424));
  2635. r36put_string((T36*)(oBC1std_output),((T0*)ms49_802392));
  2636. /*[IF*/
  2637. if((/*(IRF4.9argument_count*/(/*RF2*/((T31*)(r11command_arguments()))->_upper/*12*/)/*)*/)==(1)){
  2638. exit(0);
  2639. }
  2640. /*FI]*/
  2641. }
  2642. /*FI]*/
  2643. return R;
  2644. }
  2645.  
  2646.  
  2647. T0* r11id_provider(void){
  2648. if(fBC13id_provider==0){fBC13id_provider=1;{
  2649. {T39*n=((T39*)malloc(sizeof(*n))/*4*/);
  2650. *n=M39;
  2651. oBC13id_provider=((T0*)n);
  2652. r39make(n);
  2653. }
  2654. }}
  2655. return oBC13id_provider;
  2656. }
  2657.  
  2658.  
  2659. T6 r68is_unknown(T68* C){
  2660. T6 R=0;
  2661. R=((/*RF2*/(*C)._mangling/*4*/))==(0);
  2662. return R;
  2663. }
  2664.  
  2665.  
  2666. T2 r68column(T68* C){
  2667. T2 R=0;
  2668. T70 _bit=0;
  2669. /*[IF*/
  2670. if((((unsigned int)((/*RF2*/(*C)._mangling/*4*/)))&1)){
  2671. }
  2672. else{
  2673. _bit=(((/*RF2*/(*C)._mangling/*4*/))>>(1));
  2674. _bit=(_bit)&(T73toT70(0x7F));
  2675. R=_bit;
  2676. }
  2677. /*FI]*/
  2678. return R;
  2679. }
  2680.  
  2681.  
  2682. T2 r68id(T68* C){
  2683. T2 R=0;
  2684. /*[IF*/
  2685. if((((unsigned int)((/*RF2*/(*C)._mangling/*4*/)))&1)){
  2686. R=(((/*RF2*/(*C)._mangling/*4*/))>>(17));
  2687. }
  2688. else{
  2689. R=(((/*RF2*/(*C)._mangling/*4*/))>>(21));
  2690. }
  2691. /*FI]*/
  2692. return R;
  2693. }
  2694.  
  2695.  
  2696. void r68set(T68* C,T2 a1,T2 a2,T2 a3,T0* a4){
  2697. (/*SFN*/C->_base_class)=a4;
  2698. /*[IF*/
  2699. if((((a3)<=(2047))&&((a1)<=(8191)))&&((a2)<=(127))){
  2700. (/*SFN*/C->_mangling)=((a3)<<(21));
  2701. (/*SFN*/C->_mangling)=((/*RF2*/(*C)._mangling/*4*/))|(((a1)<<(8)));
  2702. (/*SFN*/C->_mangling)=((/*RF2*/(*C)._mangling/*4*/))|(((a2)<<(1)));
  2703. }
  2704. else{
  2705. (/*SFN*/C->_mangling)=((a3)<<(17));
  2706. (/*SFN*/C->_mangling)=((/*RF2*/(*C)._mangling/*4*/))|(((a1)<<(1)));
  2707. (/*SFN*/C->_mangling)=((/*RF2*/(*C)._mangling/*4*/))|(1);
  2708. }
  2709. /*FI]*/
  2710. }
  2711.  
  2712.  
  2713. T2 r68line(T68* C){
  2714. T2 R=0;
  2715. T70 _bit=0;
  2716. /*[IF*/
  2717. if((((unsigned int)((/*RF2*/(*C)._mangling/*4*/)))&1)){
  2718. _bit=(((/*RF2*/(*C)._mangling/*4*/))>>(1));
  2719. _bit=(_bit)&(T74toT70(0x7FFF));
  2720. }
  2721. else{
  2722. _bit=(((/*RF2*/(*C)._mangling/*4*/))>>(8));
  2723. _bit=(_bit)&(T75toT70(0x1FFF));
  2724. }
  2725. /*FI]*/
  2726. R=_bit;
  2727. return R;
  2728. }
  2729.  
  2730.  
  2731. void r68show(T68* C){
  2732. T0* _the_line=NULL;
  2733. T0* _file_path=NULL;
  2734. T0* _name=NULL;
  2735. T0* _bcn=NULL;
  2736. T0* _bc=NULL;
  2737. T2 _nb=0;
  2738. T2 _co=0;
  2739. T2 _li=0;
  2740. _li=r68line(C);
  2741. _co=r68column(C);
  2742. _bc=(/*RF2*/(*C)._base_class/*0*/);
  2743. /*[IF*/
  2744. if((_bc)!=((void*)(NULL))){
  2745. _bcn=r68base_class_name(C);
  2746. }
  2747. /*FI]*/
  2748. /*[IF*/
  2749. if((_bcn)!=((void*)(NULL))){
  2750. _name=(/*RF2*/(((T61*)_bcn))->_to_string/*8*/);
  2751. _file_path=(/*RF2*/(((T51*)_bc))->_path/*4*/);
  2752. }
  2753. /*FI]*/
  2754. r35w_put_string(((T0*)ms68_2120));
  2755. r35w_put_integer(_li);
  2756. /*[IF*/
  2757. if((_co)>(0)){
  2758. r35w_put_string(((T0*)ms68_5784));
  2759. r35w_put_integer(_co);
  2760. }
  2761. /*FI]*/
  2762. r35w_put_string(((T0*)ms68_1116));
  2763. /*[IF*/
  2764. if((_name)!=((void*)(NULL))){
  2765. r35w_put_string(_name);
  2766. }
  2767. /*FI]*/
  2768. /*[IF*/
  2769. if((_file_path)!=((void*)(NULL))){
  2770. r35w_put_string(((T0*)ms68_144));
  2771. r35w_put_string(_file_path);
  2772. r35w_put_character(((T3)'\51'));
  2773. }
  2774. /*FI]*/
  2775. r35w_put_string(((T0*)ms68_300));
  2776. /*[IF*/
  2777. if((_file_path)!=((void*)(NULL))){
  2778. _the_line=r68get_line(_file_path,_li);
  2779. /*[IF*/
  2780. if(((_li)>(0))&&((_the_line)!=((void*)(NULL)))){
  2781. r35w_put_string(_the_line);
  2782. r35w_put_character(((T3)'\n'));
  2783. /*[IF*/
  2784. if((_co)>(0)){
  2785. _nb=1;
  2786. while (!((_nb)>=(_co)))
  2787. {
  2788. /*[IF*/
  2789. if((/*(IRF4.6item*/((/*RF2*/(((T7*)_the_line))->_storage/*0*/))[(_nb)-(1)]/*)*/)==(((T3)'\11'))){
  2790. r35w_put_character(((T3)'\11'));
  2791. }
  2792. else{
  2793. r35w_put_character(((T3)'\40'));
  2794. }
  2795. /*FI]*/
  2796. _nb=(_nb)+(1);
  2797. }
  2798. r35w_put_string(((T0*)ms68_208));
  2799. }
  2800. /*FI]*/
  2801. }
  2802. /*FI]*/
  2803. }
  2804. /*FI]*/
  2805. }
  2806.  
  2807.  
  2808. T6 r68before(T68* C,T68 a1){
  2809. T6 R=0;
  2810. T2 _other_li=0;
  2811. T2 _li=0;
  2812. _li=r68line(C);
  2813. _other_li=r68line(&a1);
  2814. /*[IF*/
  2815. if((_li)<(_other_li)){
  2816. R=1;
  2817. }
  2818.  else if((_li)==(_other_li)){
  2819. R=(r68column(C))<(r68column(&a1));
  2820. }
  2821. /*FI]*/
  2822. return R;
  2823. }
  2824.  
  2825.  
  2826. T0* r68base_class_name(T68* C){
  2827. T0* R=NULL;
  2828. T0* _bc=NULL;
  2829. _bc=(/*RF2*/(*C)._base_class/*0*/);
  2830. /*[IF*/
  2831. if((_bc)!=((void*)(NULL))){
  2832. R=(/*RF2*/(((T51*)_bc))->_name/*18*/);
  2833. }
  2834. /*FI]*/
  2835. return R;
  2836. }
  2837.  
  2838.  
  2839. T0* r68path(T68* C){
  2840. T0* R=NULL;
  2841. T2 _id_value=0;
  2842. T0* _bc=NULL;
  2843. _bc=(/*RF2*/(*C)._base_class/*0*/);
  2844. /*[IF*/
  2845. if((_bc)!=((void*)(NULL))){
  2846. R=(/*RF2*/(((T51*)_bc))->_path/*4*/);
  2847. }
  2848. /*FI]*/
  2849. /*[IF*/
  2850. if((R)==((void*)(NULL))){
  2851. _id_value=r68id(C);
  2852. /*[IF*/
  2853. if((r68id(C))!=(0)){
  2854. R=((/*UT*/(void)((T39*)(r68id_provider()))),r39alias_of(r68id(C)));
  2855. }
  2856. /*FI]*/
  2857. }
  2858. /*FI]*/
  2859. return R;
  2860. }
  2861.  
  2862.  
  2863. T0* r68get_line(T0* a1,T2 a2){
  2864. T0* R=NULL;
  2865. T2 _i=0;
  2866. r35sfr_connect((T35*)(oBC13echo),oBC13tmp_file_read,a1);
  2867. /*[IF*/
  2868. if(/*(IRF4.7is_connected*/((/*RF2*/((T40*)(oBC13tmp_file_read))->_path/*1*/))!=(NULL)/*)*/){
  2869. while (!((r40end_of_input((T40*)(oBC13tmp_file_read)))||((_i)==(a2))))
  2870. {
  2871. r40read_line((T40*)(oBC13tmp_file_read));
  2872. _i=(_i)+(1);
  2873. }
  2874. /*[IF*/
  2875. if(!(r40end_of_input((T40*)(oBC13tmp_file_read)))){
  2876. R=oBC41last_string;
  2877. }
  2878. /*FI]*/
  2879. r40disconnect((T40*)(oBC13tmp_file_read));
  2880. }
  2881. /*FI]*/
  2882. return R;
  2883. }
  2884.  
  2885.  
  2886. T0* r68id_provider(void){
  2887. if(fBC13id_provider==0){fBC13id_provider=1;{
  2888. {T39*n=((T39*)malloc(sizeof(*n))/*4*/);
  2889. *n=M39;
  2890. oBC13id_provider=((T0*)n);
  2891. r39make(n);
  2892. }
  2893. }}
  2894. return oBC13id_provider;
  2895. }
  2896. T0*oBC341source_types=NULL;
  2897.  
  2898.  
  2899. void r341generic_cast(T341* C,T0* a1){
  2900. T2 _j=0;
  2901. T2 _i=0;
  2902. T0* _d=NULL;
  2903. T0* _s=NULL;
  2904. T0* _d_gl=NULL;
  2905. T0* _s_gl=NULL;
  2906. /*[IF*/
  2907. if((X52is_generic((/*RF2*/(C)->_source/*0*/)))&&(X52is_generic(a1))){
  2908. _s_gl=X52generic_list((/*RF2*/(C)->_source/*0*/));
  2909. _d_gl=X52generic_list(a1);
  2910. _i=(/*RF2*/(((T258*)_s_gl))->_upper/*8*/);
  2911. while (!((_i)==(0)))
  2912. {
  2913. _j=(/*RF2*/(((T258*)_d_gl))->_upper/*8*/);
  2914. _s=r258item(((T258*)_s_gl),_i);
  2915. while (!((_j)==(0)))
  2916. {
  2917. _d=r258item(((T258*)_d_gl),_j);
  2918. /*[IF*/
  2919. if(X52is_a(_d,_s)){
  2920. r341passing(C,_d,_s);
  2921. }
  2922. else{
  2923. /*[IRF3.2cancel*//*[IRF3.3clear*/((((T7*)((T7*)(oBC66explanation))))->_count)=(0);
  2924. /*]*/
  2925. /*[IRF3.3clear*/((((T67*)((T67*)(oBC66positions))))->_upper)=(-(1));
  2926. /*]*/
  2927. /*]*/
  2928. }
  2929. /*FI]*/
  2930. _j=(_j)-(1);
  2931. }
  2932. _i=(_i)-(1);
  2933. }
  2934. }
  2935. /*FI]*/
  2936. }
  2937.  
  2938.  
  2939. T0* r341implicit_cast(T341* C,T0* a1,T0* a2){
  2940. T0* R=NULL;
  2941. T0* _destination_bit=NULL;
  2942. T0* _source_bit=NULL;
  2943. (/*SFN*/C->_source)=X104result_type(a1);
  2944. /*[IF*/
  2945. if((X52run_time_mark((/*RF2*/(C)->_source/*0*/)))==((void*)(X52run_time_mark(a2)))){
  2946. R=a1;
  2947. }
  2948.  else if(X52is_reference((/*RF2*/(C)->_source/*0*/))){
  2949. /*[IF*/
  2950. if(X52is_reference(a2)){
  2951. R=a1;
  2952. r341generic_cast(C,a2);
  2953. }
  2954. else{
  2955. {T393*n=((T393*)malloc(sizeof(*n))/*16*/);
  2956. *n=M393;
  2957. r393make(n,a1,a2);
  2958. R=((T0*)n);
  2959. }
  2960. }
  2961. /*FI]*/
  2962. }
  2963.  else if(X52is_reference(a2)){
  2964. r341computes_for(C,(/*RF2*/(C)->_source/*0*/),a2);
  2965. {T393*n=((T393*)malloc(sizeof(*n))/*16*/);
  2966. *n=M393;
  2967. r393make(n,a1,(/*RF2*/(C)->_destination/*4*/));
  2968. R=((T0*)n);
  2969. }
  2970. }
  2971. else{
  2972. /*[IF*/
  2973. if((X52is_real(a2))&&(X52is_integer((/*RF2*/(C)->_source/*0*/)))){
  2974. {T393*n=((T393*)malloc(sizeof(*n))/*16*/);
  2975. *n=M393;
  2976. r393make(n,a1,a2);
  2977. R=((T0*)n);
  2978. }
  2979. }
  2980.  else if(X52is_double(a2)){
  2981. /*[IF*/
  2982. if((X52is_integer((/*RF2*/(C)->_source/*0*/)))||(X52is_real((/*RF2*/(C)->_source/*0*/)))){
  2983. {T393*n=((T393*)malloc(sizeof(*n))/*16*/);
  2984. *n=M393;
  2985. r393make(n,a1,a2);
  2986. R=((T0*)n);
  2987. }
  2988. }
  2989. else{
  2990. R=a1;
  2991. }
  2992. /*FI]*/
  2993. }
  2994.  else if(X52is_bit(a2)){
  2995. _source_bit=X52run_type((/*RF2*/(C)->_source/*0*/));
  2996. if(NULL!=(_source_bit)){
  2997. switch(((T0*)_source_bit)->id){
  2998. case 275:case 277:
  2999. break;
  3000. default:
  3001. _source_bit=NULL;
  3002. }
  3003. }_destination_bit=X52run_type(a2);
  3004. if(NULL!=(_destination_bit)){
  3005. switch(((T0*)_destination_bit)->id){
  3006. case 275:case 277:
  3007. break;
  3008. default:
  3009. _destination_bit=NULL;
  3010. }
  3011. }/*[IF*/
  3012. if((X276nb(_source_bit))!=(X276nb(_destination_bit))){
  3013. {T393*n=((T393*)malloc(sizeof(*n))/*16*/);
  3014. *n=M393;
  3015. r393make(n,a1,a2);
  3016. R=((T0*)n);
  3017. }
  3018. }
  3019. else{
  3020. R=a1;
  3021. }
  3022. /*FI]*/
  3023. }
  3024. else{
  3025. R=a1;
  3026. r341generic_cast(C,a2);
  3027. }
  3028. /*FI]*/
  3029. }
  3030. /*FI]*/
  3031. return R;
  3032. }
  3033.  
  3034.  
  3035. void r341passing(T341* C,T0* a1,T0* a2){
  3036. /*[IF*/
  3037. if(X52is_expanded(a1)){
  3038. /*[IF*/
  3039. if(X52is_reference(a2)){
  3040. r341notify(C,NULL,a1,a2);
  3041. }
  3042. /*FI]*/
  3043. }
  3044.  else if(X52is_expanded(a2)){
  3045. r341notify(C,NULL,a1,a2);
  3046. }
  3047. else{
  3048. (/*SFN*/C->_source)=a1;
  3049. r341generic_cast(C,a2);
  3050. }
  3051. /*FI]*/
  3052. }
  3053. T0*oBC341buffer=NULL;
  3054. T0*oBC341destination_types=NULL;
  3055.  
  3056.  
  3057. void r341notify(T341* C,T0* a1,T0* a2,T0* a3){
  3058. r341computes_for(C,a2,a3);
  3059. /*[IF*/
  3060. if(r342has((T342*)(oBC341source_types),(/*RF2*/(C)->_entry/*8*/))){
  3061. (/*SFN*/C->_source)=r342at((T342*)(oBC341source_types),(/*RF2*/(C)->_entry/*8*/));
  3062. /*[IF*/
  3063. if(!(X52is_a((/*RF2*/(C)->_source/*0*/),a2))){
  3064. /*[IRF3.2cancel*//*[IRF3.3clear*/((((T7*)((T7*)(oBC66explanation))))->_count)=(0);
  3065. /*]*/
  3066. /*[IRF3.3clear*/((((T67*)((T67*)(oBC66positions))))->_upper)=(-(1));
  3067. /*]*/
  3068. /*]*/
  3069. r342put((T342*)(oBC341source_types),a2,(/*RF2*/(C)->_entry/*8*/));
  3070. X384put(oBC341expressions,a1,(/*RF2*/(C)->_entry/*8*/));
  3071. }
  3072. /*FI]*/
  3073. }
  3074. else{
  3075. /*[IF*/
  3076. if(X52is_expanded((/*RF2*/(C)->_source/*0*/))){
  3077. r50set_at_run_time((T50*)(X52run_class((/*RF2*/(C)->_destination/*4*/))));
  3078. }
  3079. /*FI]*/
  3080. r342put((T342*)(oBC341source_types),a2,(/*RF2*/(C)->_entry/*8*/));
  3081. r342put((T342*)(oBC341destination_types),a3,(/*RF2*/(C)->_entry/*8*/));
  3082. /*[IF*/
  3083. if((a1)!=((void*)(NULL))){
  3084. X384put(oBC341expressions,a1,(/*RF2*/(C)->_entry/*8*/));
  3085. }
  3086. /*FI]*/
  3087. }
  3088. /*FI]*/
  3089. }
  3090.  
  3091.  
  3092. T0* r341string_aliaser(void){
  3093. if(fBC13string_aliaser==0){fBC13string_aliaser=1;{
  3094. {T21*n=((T21*)malloc(1));
  3095. oBC13string_aliaser=((T0*)n);
  3096. /*[IRF3.2make*//*[IRF3.6add1*/{T0* b1=((T0*)ms15_696);
  3097. r23put((T23*)(oBC21memory),b1,b1);
  3098. }/*]*/
  3099. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1915);
  3100. r23put((T23*)(oBC21memory),b1,b1);
  3101. }/*]*/
  3102. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_669);
  3103. r23put((T23*)(oBC21memory),b1,b1);
  3104. }/*]*/
  3105. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1980);
  3106. r23put((T23*)(oBC21memory),b1,b1);
  3107. }/*]*/
  3108. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9234);
  3109. r23put((T23*)(oBC21memory),b1,b1);
  3110. }/*]*/
  3111. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6405);
  3112. r23put((T23*)(oBC21memory),b1,b1);
  3113. }/*]*/
  3114. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12529);
  3115. r23put((T23*)(oBC21memory),b1,b1);
  3116. }/*]*/
  3117. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9801);
  3118. r23put((T23*)(oBC21memory),b1,b1);
  3119. }/*]*/
  3120. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16393);
  3121. r23put((T23*)(oBC21memory),b1,b1);
  3122. }/*]*/
  3123. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12550);
  3124. r23put((T23*)(oBC21memory),b1,b1);
  3125. }/*]*/
  3126. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_4728);
  3127. r23put((T23*)(oBC21memory),b1,b1);
  3128. }/*]*/
  3129. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_10740);
  3130. r23put((T23*)(oBC21memory),b1,b1);
  3131. }/*]*/
  3132. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12030);
  3133. r23put((T23*)(oBC21memory),b1,b1);
  3134. }/*]*/
  3135. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_14817);
  3136. r23put((T23*)(oBC21memory),b1,b1);
  3137. }/*]*/
  3138. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6307);
  3139. r23put((T23*)(oBC21memory),b1,b1);
  3140. }/*]*/
  3141. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6643);
  3142. r23put((T23*)(oBC21memory),b1,b1);
  3143. }/*]*/
  3144. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12595);
  3145. r23put((T23*)(oBC21memory),b1,b1);
  3146. }/*]*/
  3147. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_5508);
  3148. r23put((T23*)(oBC21memory),b1,b1);
  3149. }/*]*/
  3150. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_17448);
  3151. r23put((T23*)(oBC21memory),b1,b1);
  3152. }/*]*/
  3153. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1216);
  3154. r23put((T23*)(oBC21memory),b1,b1);
  3155. }/*]*/
  3156. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7928);
  3157. r23put((T23*)(oBC21memory),b1,b1);
  3158. }/*]*/
  3159. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6776);
  3160. r23put((T23*)(oBC21memory),b1,b1);
  3161. }/*]*/
  3162. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12804);
  3163. r23put((T23*)(oBC21memory),b1,b1);
  3164. }/*]*/
  3165. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1168);
  3166. r23put((T23*)(oBC21memory),b1,b1);
  3167. }/*]*/
  3168. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7576);
  3169. r23put((T23*)(oBC21memory),b1,b1);
  3170. }/*]*/
  3171. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_4956);
  3172. r23put((T23*)(oBC21memory),b1,b1);
  3173. }/*]*/
  3174. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16692);
  3175. r23put((T23*)(oBC21memory),b1,b1);
  3176. }/*]*/
  3177. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_19124);
  3178. r23put((T23*)(oBC21memory),b1,b1);
  3179. }/*]*/
  3180. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_921);
  3181. r23put((T23*)(oBC21memory),b1,b1);
  3182. }/*]*/
  3183. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_10680);
  3184. r23put((T23*)(oBC21memory),b1,b1);
  3185. }/*]*/
  3186. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_64);
  3187. r23put((T23*)(oBC21memory),b1,b1);
  3188. }/*]*/
  3189. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_368);
  3190. r23put((T23*)(oBC21memory),b1,b1);
  3191. }/*]*/
  3192. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_61);
  3193. r23put((T23*)(oBC21memory),b1,b1);
  3194. }/*]*/
  3195. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_246);
  3196. r23put((T23*)(oBC21memory),b1,b1);
  3197. }/*]*/
  3198. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_62);
  3199. r23put((T23*)(oBC21memory),b1,b1);
  3200. }/*]*/
  3201. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9408);
  3202. r23put((T23*)(oBC21memory),b1,b1);
  3203. }/*]*/
  3204. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_242);
  3205. r23put((T23*)(oBC21memory),b1,b1);
  3206. }/*]*/
  3207. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_60);
  3208. r23put((T23*)(oBC21memory),b1,b1);
  3209. }/*]*/
  3210. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_45);
  3211. r23put((T23*)(oBC21memory),b1,b1);
  3212. }/*]*/
  3213. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_42);
  3214. r23put((T23*)(oBC21memory),b1,b1);
  3215. }/*]*/
  3216. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_216);
  3217. r23put((T23*)(oBC21memory),b1,b1);
  3218. }/*]*/
  3219. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1011);
  3220. r23put((T23*)(oBC21memory),b1,b1);
  3221. }/*]*/
  3222. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_450);
  3223. r23put((T23*)(oBC21memory),b1,b1);
  3224. }/*]*/
  3225. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8211);
  3226. r23put((T23*)(oBC21memory),b1,b1);
  3227. }/*]*/
  3228. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_43);
  3229. r23put((T23*)(oBC21memory),b1,b1);
  3230. }/*]*/
  3231. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_94);
  3232. r23put((T23*)(oBC21memory),b1,b1);
  3233. }/*]*/
  3234. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_552);
  3235. r23put((T23*)(oBC21memory),b1,b1);
  3236. }/*]*/
  3237. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_564);
  3238. r23put((T23*)(oBC21memory),b1,b1);
  3239. }/*]*/
  3240. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_47);
  3241. r23put((T23*)(oBC21memory),b1,b1);
  3242. }/*]*/
  3243. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_188);
  3244. r23put((T23*)(oBC21memory),b1,b1);
  3245. }/*]*/
  3246. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_35);
  3247. r23put((T23*)(oBC21memory),b1,b1);
  3248. }/*]*/
  3249. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1035a);
  3250. r23put((T23*)(oBC21memory),b1,b1);
  3251. }/*]*/
  3252. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11424);
  3253. r23put((T23*)(oBC21memory),b1,b1);
  3254. }/*]*/
  3255. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2600);
  3256. r23put((T23*)(oBC21memory),b1,b1);
  3257. }/*]*/
  3258. r21add2(((T0*)ms15_22524));
  3259. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6702);
  3260. r23put((T23*)(oBC21memory),b1,b1);
  3261. }/*]*/
  3262. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11776);
  3263. r23put((T23*)(oBC21memory),b1,b1);
  3264. }/*]*/
  3265. r21add2(((T0*)ms15_29246));
  3266. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13419);
  3267. r23put((T23*)(oBC21memory),b1,b1);
  3268. }/*]*/
  3269. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2765a);
  3270. r23put((T23*)(oBC21memory),b1,b1);
  3271. }/*]*/
  3272. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1644);
  3273. r23put((T23*)(oBC21memory),b1,b1);
  3274. }/*]*/
  3275. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_19294);
  3276. r23put((T23*)(oBC21memory),b1,b1);
  3277. }/*]*/
  3278. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1772);
  3279. r23put((T23*)(oBC21memory),b1,b1);
  3280. }/*]*/
  3281. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15070);
  3282. r23put((T23*)(oBC21memory),b1,b1);
  3283. }/*]*/
  3284. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15570);
  3285. r23put((T23*)(oBC21memory),b1,b1);
  3286. }/*]*/
  3287. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27034);
  3288. r23put((T23*)(oBC21memory),b1,b1);
  3289. }/*]*/
  3290. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15190);
  3291. r23put((T23*)(oBC21memory),b1,b1);
  3292. }/*]*/
  3293. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15890);
  3294. r23put((T23*)(oBC21memory),b1,b1);
  3295. }/*]*/
  3296. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_19151);
  3297. r23put((T23*)(oBC21memory),b1,b1);
  3298. }/*]*/
  3299. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13491);
  3300. r23put((T23*)(oBC21memory),b1,b1);
  3301. }/*]*/
  3302. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_28490);
  3303. r23put((T23*)(oBC21memory),b1,b1);
  3304. }/*]*/
  3305. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8750);
  3306. r23put((T23*)(oBC21memory),b1,b1);
  3307. }/*]*/
  3308. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_19437);
  3309. r23put((T23*)(oBC21memory),b1,b1);
  3310. }/*]*/
  3311. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22824a);
  3312. r23put((T23*)(oBC21memory),b1,b1);
  3313. }/*]*/
  3314. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_23829);
  3315. r23put((T23*)(oBC21memory),b1,b1);
  3316. }/*]*/
  3317. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27272);
  3318. r23put((T23*)(oBC21memory),b1,b1);
  3319. }/*]*/
  3320. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_10528);
  3321. r23put((T23*)(oBC21memory),b1,b1);
  3322. }/*]*/
  3323. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13707);
  3324. r23put((T23*)(oBC21memory),b1,b1);
  3325. }/*]*/
  3326. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6846);
  3327. r23put((T23*)(oBC21memory),b1,b1);
  3328. }/*]*/
  3329. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1664);
  3330. r23put((T23*)(oBC21memory),b1,b1);
  3331. }/*]*/
  3332. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2760);
  3333. r23put((T23*)(oBC21memory),b1,b1);
  3334. }/*]*/
  3335. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2730a);
  3336. r23put((T23*)(oBC21memory),b1,b1);
  3337. }/*]*/
  3338. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22248);
  3339. r23put((T23*)(oBC21memory),b1,b1);
  3340. }/*]*/
  3341. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22788);
  3342. r23put((T23*)(oBC21memory),b1,b1);
  3343. }/*]*/
  3344. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_30660);
  3345. r23put((T23*)(oBC21memory),b1,b1);
  3346. }/*]*/
  3347. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13995);
  3348. r23put((T23*)(oBC21memory),b1,b1);
  3349. }/*]*/
  3350. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_432);
  3351. r23put((T23*)(oBC21memory),b1,b1);
  3352. }/*]*/
  3353. r21add2(((T0*)ms15_22596));
  3354. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_60104);
  3355. r23put((T23*)(oBC21memory),b1,b1);
  3356. }/*]*/
  3357. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_24960);
  3358. r23put((T23*)(oBC21memory),b1,b1);
  3359. }/*]*/
  3360. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_34432);
  3361. r23put((T23*)(oBC21memory),b1,b1);
  3362. }/*]*/
  3363. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11144);
  3364. r23put((T23*)(oBC21memory),b1,b1);
  3365. }/*]*/
  3366. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_18964);
  3367. r23put((T23*)(oBC21memory),b1,b1);
  3368. }/*]*/
  3369. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1724);
  3370. r23put((T23*)(oBC21memory),b1,b1);
  3371. }/*]*/
  3372. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1744);
  3373. r23put((T23*)(oBC21memory),b1,b1);
  3374. }/*]*/
  3375. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2765);
  3376. r23put((T23*)(oBC21memory),b1,b1);
  3377. }/*]*/
  3378. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6762);
  3379. r23put((T23*)(oBC21memory),b1,b1);
  3380. }/*]*/
  3381. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1656);
  3382. r23put((T23*)(oBC21memory),b1,b1);
  3383. }/*]*/
  3384. r21add2(((T0*)ms15_60016));
  3385. r21add2(((T0*)ms15_26880));
  3386. r21add2(((T0*)ms15_33240));
  3387. r21add2(((T0*)ms15_21624));
  3388. r21add2(((T0*)ms15_60060));
  3389. r21add2(((T0*)ms15_26908));
  3390. r21add2(((T0*)ms15_33270));
  3391. r21add2(((T0*)ms15_21648));
  3392. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_17886);
  3393. r23put((T23*)(oBC21memory),b1,b1);
  3394. }/*]*/
  3395. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22824);
  3396. r23put((T23*)(oBC21memory),b1,b1);
  3397. }/*]*/
  3398. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_21192);
  3399. r23put((T23*)(oBC21memory),b1,b1);
  3400. }/*]*/
  3401. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2785);
  3402. r23put((T23*)(oBC21memory),b1,b1);
  3403. }/*]*/
  3404. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11496);
  3405. r23put((T23*)(oBC21memory),b1,b1);
  3406. }/*]*/
  3407. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_53940);
  3408. r23put((T23*)(oBC21memory),b1,b1);
  3409. }/*]*/
  3410. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1035);
  3411. r23put((T23*)(oBC21memory),b1,b1);
  3412. }/*]*/
  3413. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2440);
  3414. r23put((T23*)(oBC21memory),b1,b1);
  3415. }/*]*/
  3416. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2445);
  3417. r23put((T23*)(oBC21memory),b1,b1);
  3418. }/*]*/
  3419. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_32730);
  3420. r23put((T23*)(oBC21memory),b1,b1);
  3421. }/*]*/
  3422. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12744);
  3423. r23put((T23*)(oBC21memory),b1,b1);
  3424. }/*]*/
  3425. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13662);
  3426. r23put((T23*)(oBC21memory),b1,b1);
  3427. }/*]*/
  3428. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8547);
  3429. r23put((T23*)(oBC21memory),b1,b1);
  3430. }/*]*/
  3431. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8505);
  3432. r23put((T23*)(oBC21memory),b1,b1);
  3433. }/*]*/
  3434. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9436);
  3435. r23put((T23*)(oBC21memory),b1,b1);
  3436. }/*]*/
  3437. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_14193);
  3438. r23put((T23*)(oBC21memory),b1,b1);
  3439. }/*]*/
  3440. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12915a);
  3441. r23put((T23*)(oBC21memory),b1,b1);
  3442. }/*]*/
  3443. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12915);
  3444. r23put((T23*)(oBC21memory),b1,b1);
  3445. }/*]*/
  3446. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_34528);
  3447. r23put((T23*)(oBC21memory),b1,b1);
  3448. }/*]*/
  3449. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13752);
  3450. r23put((T23*)(oBC21memory),b1,b1);
  3451. }/*]*/
  3452. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11336);
  3453. r23put((T23*)(oBC21memory),b1,b1);
  3454. }/*]*/
  3455. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_26156);
  3456. r23put((T23*)(oBC21memory),b1,b1);
  3457. }/*]*/
  3458. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11376);
  3459. r23put((T23*)(oBC21memory),b1,b1);
  3460. }/*]*/
  3461. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27580);
  3462. r23put((T23*)(oBC21memory),b1,b1);
  3463. }/*]*/
  3464. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_33990);
  3465. r23put((T23*)(oBC21memory),b1,b1);
  3466. }/*]*/
  3467. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27443);
  3468. r23put((T23*)(oBC21memory),b1,b1);
  3469. }/*]*/
  3470. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_40358);
  3471. r23put((T23*)(oBC21memory),b1,b1);
  3472. }/*]*/
  3473. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_25584);
  3474. r23put((T23*)(oBC21memory),b1,b1);
  3475. }/*]*/
  3476. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7380);
  3477. r23put((T23*)(oBC21memory),b1,b1);
  3478. }/*]*/
  3479. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2730);
  3480. r23put((T23*)(oBC21memory),b1,b1);
  3481. }/*]*/
  3482. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7530);
  3483. r23put((T23*)(oBC21memory),b1,b1);
  3484. }/*]*/
  3485. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13977);
  3486. r23put((T23*)(oBC21memory),b1,b1);
  3487. }/*]*/
  3488. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_14175);
  3489. r23put((T23*)(oBC21memory),b1,b1);
  3490. }/*]*/
  3491. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16970);
  3492. r23put((T23*)(oBC21memory),b1,b1);
  3493. }/*]*/
  3494. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8820);
  3495. r23put((T23*)(oBC21memory),b1,b1);
  3496. }/*]*/
  3497. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7326);
  3498. r23put((T23*)(oBC21memory),b1,b1);
  3499. }/*]*/
  3500. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22716);
  3501. r23put((T23*)(oBC21memory),b1,b1);
  3502. }/*]*/
  3503. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12978);
  3504. r23put((T23*)(oBC21memory),b1,b1);
  3505. }/*]*/
  3506. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16770);
  3507. r23put((T23*)(oBC21memory),b1,b1);
  3508. }/*]*/
  3509. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16850);
  3510. r23put((T23*)(oBC21memory),b1,b1);
  3511. }/*]*/
  3512. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9051);
  3513. r23put((T23*)(oBC21memory),b1,b1);
  3514. }/*]*/
  3515. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_21300);
  3516. r23put((T23*)(oBC21memory),b1,b1);
  3517. }/*]*/
  3518. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_56720);
  3519. r23put((T23*)(oBC21memory),b1,b1);
  3520. }/*]*/
  3521. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1800);
  3522. r23put((T23*)(oBC21memory),b1,b1);
  3523. }/*]*/
  3524. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2780);
  3525. r23put((T23*)(oBC21memory),b1,b1);
  3526. }/*]*/
  3527. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27456);
  3528. r23put((T23*)(oBC21memory),b1,b1);
  3529. }/*]*/
  3530. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15650);
  3531. r23put((T23*)(oBC21memory),b1,b1);
  3532. }/*]*/
  3533. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9275);
  3534. r23put((T23*)(oBC21memory),b1,b1);
  3535. }/*]*/
  3536. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_58075);
  3537. r23put((T23*)(oBC21memory),b1,b1);
  3538. }/*]*/
  3539. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22140);
  3540. r23put((T23*)(oBC21memory),b1,b1);
  3541. }/*]*/
  3542. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13833);
  3543. r23put((T23*)(oBC21memory),b1,b1);
  3544. }/*]*/
  3545. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7314);
  3546. r23put((T23*)(oBC21memory),b1,b1);
  3547. }/*]*/
  3548. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1608);
  3549. r23put((T23*)(oBC21memory),b1,b1);
  3550. }/*]*/
  3551. /*]*/
  3552. }
  3553. }}
  3554. return oBC13string_aliaser;
  3555. }
  3556.  
  3557.  
  3558. void r341computes_for(T341* C,T0* a1,T0* a2){
  3559. /*[IF*/
  3560. if(X52is_expanded(a1)){
  3561. (/*SFN*/C->_source)=a1;
  3562. /*[IF*/
  3563. if(X52is_expanded(a2)){
  3564. (/*SFN*/C->_destination)=a2;
  3565. }
  3566. else{
  3567. (/*SFN*/C->_destination)=X52actual_reference((/*RF2*/(C)->_source/*0*/),a2);
  3568. }
  3569. /*FI]*/
  3570. }
  3571. else{
  3572. (/*SFN*/C->_destination)=a2;
  3573. (/*SFN*/C->_source)=X52actual_reference((/*RF2*/(C)->_destination/*4*/),a1);
  3574. }
  3575. /*FI]*/
  3576. /*[IRF3.3clear*/((((T7*)((T7*)(oBC341buffer))))->_count)=(0);
  3577. /*]*/
  3578. r7append((T7*)(oBC341buffer),X52run_time_mark((/*RF2*/(C)->_source/*0*/)));
  3579. r7append((T7*)(oBC341buffer),((T0*)ms341_1164));
  3580. r7append((T7*)(oBC341buffer),X52run_time_mark((/*RF2*/(C)->_destination/*4*/)));
  3581. (/*SFN*/C->_entry)=((/*UT*/(void)((T21*)(r341string_aliaser()))),r21item(oBC341buffer));
  3582. }
  3583.  
  3584.  
  3585. void r341c_function_definition(T341* C){
  3586. T0* _rc=NULL;
  3587. r35put_string((T35*)(oBC13echo),((T0*)ms341_16304));
  3588. r35put_string((T35*)(oBC13echo),(/*RF2*/(C)->_entry/*8*/));
  3589. r35put_string((T35*)(oBC13echo),((T0*)ms341_12390));
  3590. /*[IRF3.3clear*/((((T7*)((T7*)(oBC341buffer))))->_count)=(0);
  3591. /*]*/
  3592. X52c_type_for_result_in((/*RF2*/(C)->_destination/*4*/),oBC341buffer);
  3593. r7extend((T7*)(oBC341buffer),((T3)'\40'));
  3594. r7extend((T7*)(oBC341buffer),((T3)'T'));
  3595. r2append_in(X52id((/*RF2*/(C)->_source/*0*/)),oBC341buffer);
  3596. r7append((T7*)(oBC341buffer),((T0*)ms14_933a));
  3597. r2append_in(X52id((/*RF2*/(C)->_destination/*4*/)),oBC341buffer);
  3598. r7extend((T7*)(oBC341buffer),((T3)'\50'));
  3599. X52c_type_for_argument_in((/*RF2*/(C)->_source/*0*/),oBC341buffer);
  3600. r7append((T7*)(oBC341buffer),((T0*)ms341_6536));
  3601. r35put_string((T35*)(oBC13echo),oBC341buffer);
  3602. r35put_string((T35*)(oBC13echo),((T0*)ms14_112));
  3603. /*[IF*/
  3604. if(X52is_expanded((/*RF2*/(C)->_destination/*4*/))){
  3605. /*[IF*/
  3606. if(X52is_expanded((/*RF2*/(C)->_source/*0*/))){
  3607. r7copy((T7*)(oBC341buffer),((T0*)ms341_10791));
  3608. r2append_in(X52id((/*RF2*/(C)->_source/*0*/)),oBC341buffer);
  3609. r7append((T7*)(oBC341buffer),((T0*)ms14_933a));
  3610. r2append_in(X52id((/*RF2*/(C)->_destination/*4*/)),oBC341buffer);
  3611. r7append((T7*)(oBC341buffer),((T0*)ms341_2824));
  3612. /*[IRF3.5put_string_on_h*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_out_h/*59*/))),oBC341buffer);
  3613. /*]*/
  3614. }
  3615. else{
  3616. r325put_c_heading((T325*)(oBC13cpp),oBC341buffer);
  3617. r7copy((T7*)(oBC341buffer),((T0*)ms341_9620));
  3618. X52c_type_for_target_in((/*RF2*/(C)->_source/*0*/),oBC341buffer);
  3619. r7append((T7*)(oBC341buffer),((T0*)ms341_12204));
  3620. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),oBC341buffer);
  3621. /*]*/
  3622. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_270a));
  3623. /*]*/
  3624. }
  3625. /*FI]*/
  3626. }
  3627. else{
  3628. r325put_c_heading((T325*)(oBC13cpp),oBC341buffer);
  3629. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  3630. T3 b1=((T3)'T');
  3631. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  3632. }/*]*/
  3633. /*]*/
  3634. /*[IRF3.5put_integer*/r48put_integer(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),X52id((/*RF2*/(C)->_destination/*4*/)));
  3635. /*]*/
  3636. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  3637. T3 b1=((T3)'\52');
  3638. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  3639. }/*]*/
  3640. /*]*/
  3641. _rc=X52run_class((/*RF2*/(C)->_destination/*4*/));
  3642. r344allocation_of((T344*)(oBC13gc_handler),((T0*)ms341_19217),_rc);
  3643. /*[IF*/
  3644. if(X52is_basic_eiffel_expanded((/*RF2*/(C)->_source/*0*/))){
  3645. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms341_21789));
  3646. /*]*/
  3647. }
  3648. else{
  3649. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms341_44199));
  3650. /*]*/
  3651. /*[IF*/
  3652. if(r50is_tagged(((T50*)_rc))){
  3653. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms341_184));
  3654. /*]*/
  3655. }
  3656. /*FI]*/
  3657. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms341_16713));
  3658. /*]*/
  3659. }
  3660. /*FI]*/
  3661. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms341_24708));
  3662. /*]*/
  3663. }
  3664. /*FI]*/
  3665. }
  3666. T0*oBC341expressions=NULL;
  3667.  
  3668.  
  3669. void r341c_definitions(T341* C){
  3670. T2 _i=0;
  3671. _i=1;
  3672. while (!((_i)>((/*RF2*/((T342*)(oBC341source_types))->_count/*36*/))))
  3673. {
  3674. (/*SFN*/C->_source)=r342item((T342*)(oBC341source_types),_i);
  3675. (/*SFN*/C->_entry)=r342key((T342*)(oBC341source_types),_i);
  3676. (/*SFN*/C->_destination)=r342at((T342*)(oBC341destination_types),(/*RF2*/(C)->_entry/*8*/));
  3677. r341computes_for(C,(/*RF2*/(C)->_source/*0*/),(/*RF2*/(C)->_destination/*4*/));
  3678. /*[IF*/
  3679. if(X52is_bit((/*RF2*/(C)->_source/*0*/))){
  3680. r341c_function_definition(C);
  3681. }
  3682.  else if((X52is_expanded((/*RF2*/(C)->_source/*0*/)))&&(X52is_expanded((/*RF2*/(C)->_destination/*4*/)))){
  3683. }
  3684. else{
  3685. r341c_function_definition(C);
  3686. }
  3687. /*FI]*/
  3688. _i=(_i)+(1);
  3689. }
  3690. }
  3691.  
  3692.  
  3693. void r341c_function_call(T341* C,T0* a1,T0* a2){
  3694. r341computes_for(C,a1,a2);
  3695. /*[IF*/
  3696. if((X52run_time_mark((/*RF2*/(C)->_source/*0*/)))!=((void*)(X52run_time_mark((/*RF2*/(C)->_destination/*4*/))))){
  3697. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  3698. T3 b1=((T3)'T');
  3699. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  3700. }/*]*/
  3701. /*]*/
  3702. /*[IRF3.5put_integer*/r48put_integer(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),X52id((/*RF2*/(C)->_source/*0*/)));
  3703. /*]*/
  3704. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_933a));
  3705. /*]*/
  3706. /*[IRF3.5put_integer*/r48put_integer(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),X52id((/*RF2*/(C)->_destination/*4*/)));
  3707. /*]*/
  3708. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  3709. T3 b1=((T3)'\50');
  3710. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  3711. }/*]*/
  3712. /*]*/
  3713. }
  3714. else{
  3715. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms341_19098));
  3716. /*]*/
  3717. }
  3718. /*FI]*/
  3719. }
  3720.  
  3721.  
  3722. void r341finish_falling_down(T341* C){
  3723. T0* _rc2=NULL;
  3724. T0* _rc1=NULL;
  3725. T0* _destination_type=NULL;
  3726. T0* _source_type=NULL;
  3727. T2 _i=0;
  3728. _i=1;
  3729. while (!((_i)>((/*RF2*/((T342*)(oBC341source_types))->_count/*36*/))))
  3730. {
  3731. _source_type=r342item((T342*)(oBC341source_types),_i);
  3732. (/*SFN*/C->_entry)=r342key((T342*)(oBC341source_types),_i);
  3733. _destination_type=r342at((T342*)(oBC341destination_types),(/*RF2*/(C)->_entry/*8*/));
  3734. r341computes_for(C,_source_type,_destination_type);
  3735. /*[IF*/
  3736. if(X52is_reference((/*RF2*/(C)->_source/*0*/))){
  3737. /*[IF*/
  3738. if(X52is_expanded((/*RF2*/(C)->_destination/*4*/))){
  3739. r35put_string((T35*)(oBC13echo),(/*RF2*/(C)->_entry/*8*/));
  3740. r35put_string((T35*)(oBC13echo),((T0*)ms341_144));
  3741. r35put_string((T35*)(oBC13echo),X52run_time_mark(_source_type));
  3742. r35put_string((T35*)(oBC13echo),((T0*)ms341_1164));
  3743. r35put_string((T35*)(oBC13echo),X52run_time_mark(_destination_type));
  3744. r35put_string((T35*)(oBC13echo),((T0*)ms341_102));
  3745. r49reference_to_expanded(_source_type);
  3746. }
  3747. /*FI]*/
  3748. }
  3749. /*FI]*/
  3750. /*[IF*/
  3751. if(X52is_user_expanded((/*RF2*/(C)->_source/*0*/))){
  3752. /*[IF*/
  3753. if(X52is_reference((/*RF2*/(C)->_destination/*4*/))){
  3754. _rc1=X52run_class((/*RF2*/(C)->_source/*0*/));
  3755. _rc2=X52run_class((/*RF2*/(C)->_destination/*4*/));
  3756. }
  3757. /*FI]*/
  3758. }
  3759.  else if(X52is_user_expanded((/*RF2*/(C)->_destination/*4*/))){
  3760. /*[IF*/
  3761. if(X52is_reference((/*RF2*/(C)->_source/*0*/))){
  3762. _rc1=X52run_class((/*RF2*/(C)->_source/*0*/));
  3763. _rc2=X52run_class((/*RF2*/(C)->_destination/*4*/));
  3764. }
  3765. /*FI]*/
  3766. }
  3767. /*FI]*/
  3768. /*[IF*/
  3769. if((_rc1)!=((void*)(NULL))){
  3770. r50shared_attributes(((T50*)_rc1),_rc2);
  3771. r50shared_attributes(((T50*)_rc2),_rc1);
  3772. _rc1=NULL;
  3773. }
  3774. /*FI]*/
  3775. _i=(_i)+(1);
  3776. }
  3777. }
  3778.  
  3779.  
  3780. void r325se_tmp_add(T0* a1){
  3781. X349add_last(oBC325se_tmp_list,a1);
  3782. }
  3783.  
  3784.  
  3785. void r325push_check(T325* C,T0* a1,T0* a2,T0* a3){
  3786. r325stack_push(C,12);
  3787. X349put(oBC326stack_rf,a1,(/*RF2*/(C)->_top/*32*/));
  3788. X141put(oBC326stack_target,a2,(/*RF2*/(C)->_top/*32*/));
  3789. /*[IRF3.5put*/((/*RF2*/((T358*)(oBC326stack_args))->_storage/*0*/))[(/*RF2*/(C)->_top/*32*/)]=(a3);
  3790. /*]*/
  3791. }
  3792.  
  3793.  
  3794. T2 r325se_tmp_open(T0* a1){
  3795. T2 R=0;
  3796. T0* _rt=NULL;
  3797. _rt=X334result_type(a1);
  3798. R=X349fast_index_of(oBC325se_tmp_list,a1);
  3799. /*[IF*/
  3800. if(/*SSFRF4*//*X349valid_index*/r349valid_index((T349*)(oBC325se_tmp_list),R)){
  3801. X349put(oBC325se_tmp_list,NULL,R);
  3802. r48put_string((T48*)(oBC325out_c),((T0*)ms325_12114));
  3803. r48put_integer((T48*)(oBC325out_c),R);
  3804. /*[IRF3.6put_character*/{T48* C1=(T48*)(oBC325out_c);
  3805. T3 b1=((T3)'\75');
  3806. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  3807. }/*]*/
  3808. }
  3809. else{
  3810. R=-(1);
  3811. }
  3812. /*FI]*/
  3813. return R;
  3814. }
  3815.  
  3816.  
  3817. void r325se_trace_ins(T325* C,T68 a1){
  3818. /*[IF*/
  3819. if(r47no_check((T47*)(oBC13run_control))){
  3820. r325se_trace_exp(C,a1);
  3821. r48put_string((T48*)(oBC325out_c),((T0*)ms14_138));
  3822. }
  3823. /*FI]*/
  3824. }
  3825.  
  3826.  
  3827. void r325put_ith_argument(T325* C,T2 a1){
  3828. int _switch=0;
  3829. T0* _fal=NULL;
  3830. T0* _args=NULL;
  3831. T0* _target=NULL;
  3832. T0* _static_rf=NULL;
  3833. T0* _rf=NULL;
  3834. T2 _code=0;
  3835. _code=/*(IRF4.6item*/((/*RF2*/((T27*)(oBC326stack_code))->_storage/*0*/))[(/*RF2*/(C)->_top/*32*/)]/*)*/;
  3836. {int z1=_code;
  3837.  
  3838. if((11==z1)){
  3839. _fal=X334arguments(X349item(oBC326stack_rf,(/*RF2*/(C)->_top/*32*/)));
  3840. /*SSPRF3*//*X139compile_to_c_ith*/r139compile_to_c_ith((T139*)(/*(IRF4.6item*/((/*RF2*/((T358*)(oBC326stack_args))->_storage/*0*/))[(/*RF2*/(C)->_top/*32*/)]/*)*/),_fal,a1);
  3841. }
  3842.  else 
  3843. if((12==z1)){
  3844. _fal=X334arguments(X349item(oBC326stack_rf,(/*RF2*/(C)->_top/*32*/)));
  3845. /*SSPRF3*//*X139compile_to_c_ith*/r139compile_to_c_ith((T139*)(/*(IRF4.6item*/((/*RF2*/((T358*)(oBC326stack_args))->_storage/*0*/))[(/*RF2*/(C)->_top/*32*/)]/*)*/),_fal,a1);
  3846. }
  3847.  else 
  3848. if((13==z1)){
  3849. _fal=X334arguments(X349item(oBC326stack_rf,(/*RF2*/(C)->_top/*32*/)));
  3850. _static_rf=X349item(oBC326stack_static_rf,(/*RF2*/(C)->_top/*32*/));
  3851. r352put_ith_argument(_static_rf,_fal,a1);
  3852. }
  3853.  else 
  3854. if((14==z1)){
  3855. _fal=X334arguments(X349item(oBC326stack_rf,(/*RF2*/(C)->_top/*32*/)));
  3856. /*SSPRF3*//*X139compile_to_c_ith*/r139compile_to_c_ith((T139*)(/*(IRF4.6item*/((/*RF2*/((T358*)(oBC326stack_args))->_storage/*0*/))[(/*RF2*/(C)->_top/*32*/)]/*)*/),_fal,a1);
  3857. }
  3858.  else 
  3859. if((16==z1)){
  3860. _rf=X349item(oBC326stack_rf,(/*RF2*/(C)->_top/*32*/));
  3861. _target=X141item(oBC326stack_target,(/*RF2*/(C)->_top/*32*/));
  3862. _args=/*(IRF4.6item*/((/*RF2*/((T358*)(oBC326stack_args))->_storage/*0*/))[(/*RF2*/(C)->_top/*32*/)]/*)*/;
  3863. _static_rf=X349item(oBC326stack_static_rf,(/*RF2*/(C)->_top/*32*/));
  3864. (/*SFN*/C->_top)=((/*RF2*/(C)->_top/*32*/))-(1);
  3865. /*[IF*/
  3866. if((_rf)!=((void*)(NULL))){
  3867. /*SSPRF3*//*X139dca_inline_ith*/r139dca_inline_ith(((T139*)_args),X334arguments(_rf),a1);
  3868. }
  3869. else{
  3870. /*SSPRF3*//*X139dca_inline_ith*/r139dca_inline_ith(((T139*)_args),X334arguments(_static_rf),a1);
  3871. }
  3872. /*FI]*/
  3873. (/*SFN*/C->_top)=((/*RF2*/(C)->_top/*32*/))+(1);
  3874. /*[IRF3.5put*/((/*RF2*/((T27*)(oBC326stack_code))->_storage/*0*/))[(/*RF2*/(C)->_top/*32*/)]=(_code);
  3875. /*]*/
  3876. X349put(oBC326stack_rf,_rf,(/*RF2*/(C)->_top/*32*/));
  3877. X141put(oBC326stack_target,_target,(/*RF2*/(C)->_top/*32*/));
  3878. /*[IRF3.5put*/((/*RF2*/((T358*)(oBC326stack_args))->_storage/*0*/))[(/*RF2*/(C)->_top/*32*/)]=(_args);
  3879. /*]*/
  3880. X349put(oBC326stack_static_rf,_static_rf,(/*RF2*/(C)->_top/*32*/));
  3881. }
  3882.  else 
  3883. if((17==z1)){
  3884. _fal=X334arguments(X349item(oBC326stack_rf,(/*RF2*/(C)->_top/*32*/)));
  3885. /*SSPRF3*//*X139compile_to_c_ith*/r139compile_to_c_ith((T139*)(/*(IRF4.6item*/((/*RF2*/((T358*)(oBC326stack_args))->_storage/*0*/))[(/*RF2*/(C)->_top/*32*/)]/*)*/),_fal,a1);
  3886. }
  3887.  else 
  3888. if((18==z1)){
  3889. r325print_argument(C,a1);
  3890. }
  3891.  else {/*[IF*/
  3892. if(X52is_reference(/*SSWARF2*//*X334current_type*/(/*RF2*/((T368*)(X349item(oBC326stack_rf,(/*RF2*/(C)->_top/*32*/))))->_current_type/*8*/))){
  3893. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/(C)->_current_out/*63*/))),((T0*)ms325_4656));
  3894. /*]*/
  3895. }
  3896. else{
  3897. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/(C)->_current_out/*63*/))),((T0*)ms325_218));
  3898. /*]*/
  3899. }
  3900. /*FI]*/
  3901. }}
  3902. }
  3903.  
  3904.  
  3905. void r325connect_cecil_out_h(T325* C,T0* a1){
  3906. {T48*n=((T48*)malloc(sizeof(*n))/*8*/);
  3907. *n=M48;
  3908. /*[IRF3.1make*//*]*/
  3909. (/*SFN*/C->_out_h)=((T0*)n);
  3910. }
  3911. r35sfw_connect((T35*)(oBC13echo),(/*RF2*/(C)->_out_h/*59*/),a1);
  3912. r325sys_runtime_h(C,((T0*)ms325_1644));
  3913. r48put_string((T48*)((/*RF2*/(C)->_out_h/*59*/)),((T0*)ms325_142690));
  3914. }
  3915.  
  3916.  
  3917. void r325push_inline_dca(T325* C,T0* a1,T0* a2){
  3918. r325stack_push(C,16);
  3919. X349put(oBC326stack_rf,X116run_feature(a2),(/*RF2*/(C)->_top/*32*/));
  3920. X349put(oBC326stack_static_rf,a1,(/*RF2*/(C)->_top/*32*/));
  3921. X141put(oBC326stack_target,/*SSWARF2*//*X116target*/(/*RF2*/(((T134*)a2))->_target/*4*/),(/*RF2*/(C)->_top/*32*/));
  3922. /*[IRF3.5put*/((/*RF2*/((T358*)(oBC326stack_args))->_storage/*0*/))[(/*RF2*/(C)->_top/*32*/)]=(X116arguments(a2));
  3923. /*]*/
  3924. (/*SFN*/C->_direct_call_count)=((/*RF2*/(C)->_direct_call_count/*40*/))+(1);
  3925. }
  3926.  
  3927.  
  3928. void r325incr_procedure_count(T325* C){
  3929. (/*SFN*/C->_procedure_count)=((/*RF2*/(C)->_procedure_count/*8*/))+(1);
  3930. }
  3931.  
  3932.  
  3933. void r325really_define_c_main(T325* C,T0* a1){
  3934. T0* _ct=NULL;
  3935. T0* _rc=NULL;
  3936. T2 _id=0;
  3937. r35put_string((T35*)(oBC13echo),((T0*)ms325_17424));
  3938. _ct=(/*RF2*/(((T368*)a1))->_current_type/*8*/);
  3939. _rc=r368run_class(((T368*)a1));
  3940. _id=(/*RF2*/(((T50*)_rc))->_id/*4*/);
  3941. r43put_c_main_function_type((T43*)(r325system_tools()),oBC325out_c);
  3942. r48put_string((T48*)(oBC325out_c),((T0*)ms325_75241));
  3943. r48put_string((T48*)(oBC325out_c),((T0*)ms325_414));
  3944. r48put_integer((T48*)(oBC325out_c),_id);
  3945. r48put_string((T48*)(oBC325out_c),((T0*)ms325_14927));
  3946. /*[IF*/
  3947. if(r47no_check((T47*)(oBC13run_control))){
  3948. r48put_string((T48*)(oBC325out_c),((T0*)ms325_96186));
  3949. /*[IRF3.3clear*/((((T7*)((T7*)(oBC13c_frame_descriptor_format))))->_count)=(0);
  3950. /*]*/
  3951. X52c_frame_descriptor(_ct);
  3952. r48put_string((T48*)(oBC325out_c),oBC13c_frame_descriptor_format);
  3953. r48put_string((T48*)(oBC325out_c),((T0*)ms325_60864));
  3954. {T68 se_tmp0;
  3955. r325put_position_in_ds(/*(IRF4.6start_position*/(*(se_tmp0=r303start_position(((T303*)((/*RF2*/(((T368*)a1))->_base_feature/*24*/)))),&se_tmp0))/*)*/);
  3956. }
  3957. r48put_string((T48*)(oBC325out_c),((T0*)ms325_29412));
  3958. }
  3959. /*FI]*/
  3960. r325expanded_attributes(C,_ct);
  3961. r325push_new(C,a1,NULL);
  3962. r368mapping_c(((T368*)a1));
  3963. r325pop(C);
  3964. /*[IF*/
  3965. if(r47invariant_check((T47*)(oBC13run_control))){
  3966. /*[IF*/
  3967. if(((/*RF2*/(((T50*)_rc))->_class_invariant/*13*/))!=((void*)(NULL))){
  3968. r48put_string((T48*)(oBC325out_c),((T0*)ms14_1664));
  3969. r48put_integer((T48*)(oBC325out_c),_id);
  3970. r48put_string((T48*)(oBC325out_c),((T0*)ms325_3843a));
  3971. }
  3972. /*FI]*/
  3973. }
  3974. /*FI]*/
  3975. r344gc_info_before_exit((T344*)(oBC13gc_handler));
  3976. r43put_c_main_function_exit((T43*)(r325system_tools()),oBC325out_c);
  3977. }
  3978.  
  3979.  
  3980. void r325push_direct(T325* C,T0* a1,T0* a2,T0* a3){
  3981. r325stack_push(C,11);
  3982. X349put(oBC326stack_rf,a1,(/*RF2*/(C)->_top/*32*/));
  3983. X141put(oBC326stack_target,a2,(/*RF2*/(C)->_top/*32*/));
  3984. /*[IRF3.5put*/((/*RF2*/((T358*)(oBC326stack_args))->_storage/*0*/))[(/*RF2*/(C)->_top/*32*/)]=(a3);
  3985. /*]*/
  3986. (/*SFN*/C->_direct_call_count)=((/*RF2*/(C)->_direct_call_count/*40*/))+(1);
  3987. }
  3988.  
  3989.  
  3990. void r325put_file(T0* a1,T0* a2){
  3991. r40read_character(((T40*)a1));
  3992. while (!(r40end_of_input(((T40*)a1))))
  3993. {
  3994. /*[IRF3.6put_character*/{T48* C1=((T48*)a2);
  3995. T3 b1=/*(IRF4.6last_character*/((T3)((/*RF2*/(((T40*)a1))->_memory/*9*/)))/*)*/;
  3996. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  3997. }/*]*/
  3998. r40read_character(((T40*)a1));
  3999. }
  4000. r40disconnect(((T40*)a1));
  4001. }
  4002. T0*oBC326stack_rf=NULL;
  4003.  
  4004.  
  4005. void r325backup_sfw_connect(T0* a1,T0* a2){
  4006. T0* _object_suffix=NULL;
  4007. _object_suffix=r43object_suffix((T43*)(r325system_tools()));
  4008. r7copy((T7*)(oBC13tmp_path),a2);
  4009. r7remove_last((T7*)(oBC13tmp_path),2);
  4010. r7append((T7*)(oBC13tmp_path),_object_suffix);
  4011. /*[IF*/
  4012. if(r325file_exists(oBC13tmp_path)){
  4013. /*[IF*/
  4014. if(r325file_exists(a2)){
  4015. /*[IRF3.5put*/((/*RF2*/(((T7*)a2))->_storage/*0*/))[((/*RF2*/(((T7*)a2))->_count/*4*/))-(1)]=(((T3)'d'));
  4016. /*]*/
  4017. }
  4018. /*FI]*/
  4019. }
  4020. /*FI]*/
  4021. r35sfw_connect((T35*)(oBC13echo),a1,a2);
  4022. }
  4023.  
  4024.  
  4025. void r325put_inspect(T325* C){
  4026. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/(C)->_current_out/*63*/)));
  4027. T3 b1=((T3)'z');
  4028. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4029. }/*]*/
  4030. /*]*/
  4031. /*[IRF3.5put_integer*/r48put_integer(((T48*)((/*RF2*/(C)->_current_out/*63*/))),(/*RF2*/(C)->_inspect_level/*71*/));
  4032. /*]*/
  4033. }
  4034.  
  4035.  
  4036. void r325incr_direct_call_count(T325* C){
  4037. (/*SFN*/C->_direct_call_count)=((/*RF2*/(C)->_direct_call_count/*40*/))+(1);
  4038. }
  4039.  
  4040.  
  4041. void r325put_c_inline_c(T325* C){
  4042. T0* _c_code=NULL;
  4043. _c_code=r325get_inline_ms(C);
  4044. r48put_string((T48*)(oBC325out_c),(/*RF2*/(((T161*)_c_code))->_to_string/*12*/));
  4045. }
  4046. T0*oBC326stack_target=NULL;
  4047.  
  4048.  
  4049. void r325put_extern5(T325* C,T0* a1,T0* a2){
  4050. r325incr_elt_c_count(C,2);
  4051. r48put_string((T48*)((/*RF2*/(C)->_out_h/*59*/)),((T0*)ms14_5432));
  4052. r48put_string((T48*)((/*RF2*/(C)->_out_h/*59*/)),a1);
  4053. r48put_string((T48*)((/*RF2*/(C)->_out_h/*59*/)),((T0*)ms14_138));
  4054. r48put_string((T48*)(oBC325out_c),a1);
  4055. /*[IRF3.6put_character*/{T48* C1=(T48*)(oBC325out_c);
  4056. T3 b1=((T3)'\75');
  4057. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4058. }/*]*/
  4059. r48put_string((T48*)(oBC325out_c),a2);
  4060. r48put_string((T48*)(oBC325out_c),((T0*)ms14_138));
  4061. }
  4062.  
  4063.  
  4064. void r325inside_switch_call(T325* C,T0* a1,T0* a2){
  4065. T6 _need_se_tmp=0;
  4066. T6 _cast=0;
  4067. T0* _static_result=NULL;
  4068. T0* _dyn_result=NULL;
  4069. X334collect_c_tmp(a1);
  4070. _need_se_tmp=r325se_tmp_open_declaration(C);
  4071. _static_result=X334result_type(a2);
  4072. /*[IF*/
  4073. if((_static_result)!=((void*)(NULL))){
  4074. _dyn_result=X334result_type(a1);
  4075. r48put_string((T48*)(oBC325out_c),((T0*)ms325_549));
  4076. /*[IF*/
  4077. if(X52is_native_array(_static_result)){
  4078. _cast=1;
  4079. r48put_string((T48*)(oBC325out_c),((T0*)ms14_492));
  4080. r48put_integer((T48*)(oBC325out_c),X52id(_static_result));
  4081. /*[IRF3.6put_character*/{T48* C1=(T48*)(oBC325out_c);
  4082. T3 b1=((T3)'\51');
  4083. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4084. }/*]*/
  4085. /*[IRF3.6put_character*/{T48* C1=(T48*)(oBC325out_c);
  4086. T3 b1=((T3)'\50');
  4087. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4088. }/*]*/
  4089. }
  4090. /*FI]*/
  4091. /*[IF*/
  4092. if((X52is_expanded(_dyn_result))&&(X52is_reference(_static_result))){
  4093. r341c_function_call((T341*)(oBC13conversion_handler),_dyn_result,_static_result);
  4094. }
  4095. /*FI]*/
  4096. }
  4097. /*FI]*/
  4098. r325stack_push(C,13);
  4099. X349put(oBC326stack_rf,a1,(/*RF2*/(C)->_top/*32*/));
  4100. X349put(oBC326stack_static_rf,a2,(/*RF2*/(C)->_top/*32*/));
  4101. X334mapping_c(a1);
  4102. r325pop(C);
  4103. /*[IF*/
  4104. if((_static_result)!=((void*)(NULL))){
  4105. /*[IF*/
  4106. if((X52is_expanded(_dyn_result))&&(X52is_reference(_static_result))){
  4107. /*[IRF3.6put_character*/{T48* C1=(T48*)(oBC325out_c);
  4108. T3 b1=((T3)'\51');
  4109. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4110. }/*]*/
  4111. }
  4112. /*FI]*/
  4113. /*[IF*/
  4114. if(_cast){
  4115. /*[IRF3.6put_character*/{T48* C1=(T48*)(oBC325out_c);
  4116. T3 b1=((T3)'\51');
  4117. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4118. }/*]*/
  4119. /*[IRF3.6put_character*/{T48* C1=(T48*)(oBC325out_c);
  4120. T3 b1=((T3)'\51');
  4121. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4122. }/*]*/
  4123. }
  4124. /*FI]*/
  4125. r48put_string((T48*)(oBC325out_c),((T0*)ms14_330));
  4126. }
  4127. /*FI]*/
  4128. /*[IF*/
  4129. if(_need_se_tmp){
  4130. r325se_tmp_close_declaration(C);
  4131. }
  4132. /*FI]*/
  4133. }
  4134. T0*oBC326stack_code=NULL;
  4135.  
  4136.  
  4137. void r325stack_overflow(T325* C){
  4138. T0* _rtma=NULL;
  4139. T0* _rtm=NULL;
  4140. T0* _rf=NULL;
  4141. T2 _i=0;
  4142. /*[IRF3.6append*/{T0* b1=((T0*)ms326_80668);
  4143. r7append((T7*)(oBC66explanation),b1);
  4144. }/*]*/
  4145. _i=((/*RF2*/(C)->_top/*32*/))-(1);
  4146. while (!((_i)<(0)))
  4147. {
  4148. _rf=X349item(oBC326stack_rf,_i);
  4149. /*[IF*/
  4150. if((_rf)!=((void*)(NULL))){
  4151. {T68 se_tmp0;
  4152. r66add_position((*(se_tmp0=X334start_position(_rf),&se_tmp0)));
  4153. }
  4154. _rtm=X52run_time_mark(/*SSWARF2*//*X334current_type*/(/*RF2*/(((T368*)_rf))->_current_type/*8*/));
  4155. /*[IF*/
  4156. if((_rtma)==((void*)(NULL))){
  4157. {T31*n=((T31*)malloc(sizeof(*n))/*16*/);
  4158. *n=M31;
  4159. r31with_capacity(n,(/*RF2*/(C)->_top/*32*/));
  4160. _rtma=((T0*)n);
  4161. }
  4162. r31add_last(((T31*)_rtma),_rtm);
  4163. /*[IRF3.6append*/{T0* b1=_rtm;
  4164. r7append((T7*)(oBC66explanation),b1);
  4165. }/*]*/
  4166. }
  4167.  else if(r31fast_has(((T31*)_rtma),_rtm)){
  4168. }
  4169. else{
  4170. r31add_last(((T31*)_rtma),_rtm);
  4171. /*[IRF3.6append*/{T0* b1=((T0*)ms326_152);
  4172. r7append((T7*)(oBC66explanation),b1);
  4173. }/*]*/
  4174. /*[IRF3.6append*/{T0* b1=_rtm;
  4175. r7append((T7*)(oBC66explanation),b1);
  4176. }/*]*/
  4177. }
  4178. /*FI]*/
  4179. }
  4180. /*FI]*/
  4181. _i=(_i)-(1);
  4182. }
  4183. r325fatal_error(((T0*)ms326_728));
  4184. }
  4185.  
  4186.  
  4187. T0* r325get_inline_ms(T325* C){
  4188. T0* R=NULL;
  4189. T0* _e=NULL;
  4190. _e=/*SSFRF4*//*X139expression*/r139expression((T139*)(/*(IRF4.6item*/((/*RF2*/((T358*)(oBC326stack_args))->_storage/*0*/))[(/*RF2*/(C)->_top/*32*/)]/*)*/),1);
  4191. R=_e;
  4192. if(NULL!=(R)){
  4193. switch(((T0*)R)->id){
  4194. case 161:
  4195. break;
  4196. default:
  4197. R=NULL;
  4198. }
  4199. }/*[IF*/
  4200. if((R)==((void*)(NULL))){
  4201. {T68 se_tmp0;
  4202. r66add_position((*(se_tmp0=X104start_position(_e),&se_tmp0)));
  4203. }
  4204. r325fatal_error(((T0*)ms325_190320));
  4205. }
  4206. /*FI]*/
  4207. return R;
  4208. }
  4209.  
  4210.  
  4211. void r325c_plus_plus_definitions(T325* C){
  4212. T6 _no_split_save=0;
  4213. T2 _i=0;
  4214. T0* _cpp_path_c=NULL;
  4215. T0* _cpp_path_h=NULL;
  4216. /*[IF*/
  4217. if(((/*RF2*/(C)->_c_plus_plus/*55*/))!=((void*)(NULL))){
  4218. _no_split_save=(/*RF2*/(C)->_no_split/*52*/);
  4219. (/*SFN*/C->_no_split)=1;
  4220. r35put_string((T35*)(oBC13echo),((T0*)ms325_14196));
  4221. _cpp_path_h=r7twin((T7*)(r43path_h((T43*)(r325system_tools()))));
  4222. r7remove_last(((T7*)_cpp_path_h),2);
  4223. r7append(((T7*)_cpp_path_h),((T0*)ms325_25857));
  4224. _cpp_path_c=r7twin(((T7*)_cpp_path_h));
  4225. r7append(((T7*)_cpp_path_h),((T0*)ms13_300));
  4226. r7append(((T7*)_cpp_path_c),((T0*)ms13_1476));
  4227. r35sfw_connect((T35*)(oBC13echo),(/*RF2*/(C)->_out_h/*59*/),_cpp_path_h);
  4228. r35sfw_connect((T35*)(oBC13echo),oBC325out_c,_cpp_path_c);
  4229. r325add_first_include(_cpp_path_h);
  4230. r43add_c_plus_plus_file((T43*)(r325system_tools()),_cpp_path_c);
  4231. r325sys_runtime_h(C,((T0*)ms325_19756));
  4232. /*[IF*/
  4233. if(((/*RF2*/(C)->_c_plus_plus/*55*/))!=((void*)(NULL))){
  4234. _i=(/*RF2*/((T331*)((/*RF2*/(C)->_c_plus_plus/*55*/)))->_upper/*8*/);
  4235. while (!((_i)<(0)))
  4236. {
  4237. r301c_plus_plus_definition((T301*)(/*(IRF4.6item*/((/*RF2*/((T331*)((/*RF2*/(C)->_c_plus_plus/*55*/)))->_storage/*0*/))[_i]/*)*/));
  4238. _i=(_i)-(1);
  4239. }
  4240. }
  4241. /*FI]*/
  4242. r48disconnect((T48*)((/*RF2*/(C)->_out_h/*59*/)));
  4243. r48disconnect((T48*)(oBC325out_c));
  4244. (/*SFN*/C->_no_split)=_no_split_save;
  4245. }
  4246. /*FI]*/
  4247. }
  4248. T0*oBC325out_make=NULL;
  4249.  
  4250.  
  4251. void r325bit_constant_definition(T325* C){
  4252. T0* _type_bit=NULL;
  4253. T0* _bc=NULL;
  4254. T2 _i=0;
  4255. /*[IF*/
  4256. if(((/*RF2*/(C)->_bit_constant_pool/*87*/))!=((void*)(NULL))){
  4257. _i=(/*RF2*/((T339*)((/*RF2*/(C)->_bit_constant_pool/*87*/)))->_upper/*12*/);
  4258. while (!((_i)<(0)))
  4259. {
  4260. /*[IRF3.3clear*/((((T7*)((T7*)(oBC325tmp_string))))->_count)=(0);
  4261. /*]*/
  4262. _bc=/*(IRF4.6item*/((/*RF2*/((T339*)((/*RF2*/(C)->_bit_constant_pool/*87*/)))->_storage/*4*/))[_i]/*)*/;
  4263. _type_bit=(/*RF2*/(((T163*)_bc))->_result_type/*16*/);
  4264. /*[IRF3.3clear*/((((T7*)((T7*)(oBC325tmp_string))))->_count)=(0);
  4265. /*]*/
  4266. X276c_type_for_argument_in(_type_bit,oBC325tmp_string);
  4267. r7extend((T7*)(oBC325tmp_string),((T3)'\40'));
  4268. r7append((T7*)(oBC325tmp_string),((T0*)ms325_33810));
  4269. r2append_in(_i,oBC325tmp_string);
  4270. r325put_extern7(C,oBC325tmp_string);
  4271. /*[IRF3.6put_character*/{T48* C1=(T48*)(oBC325out_c);
  4272. T3 b1=((T3)'\173');
  4273. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4274. }/*]*/
  4275. r163c_define(((T163*)_bc));
  4276. /*[IRF3.6put_character*/{T48* C1=(T48*)(oBC325out_c);
  4277. T3 b1=((T3)'\175');
  4278. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4279. }/*]*/
  4280. /*[IRF3.6put_character*/{T48* C1=(T48*)(oBC325out_c);
  4281. T3 b1=((T3)'\73');
  4282. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4283. }/*]*/
  4284. /*[IRF3.6put_character*/{T48* C1=(T48*)(oBC325out_c);
  4285. T3 b1=((T3)'\n');
  4286. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4287. }/*]*/
  4288. _i=(_i)-(1);
  4289. }
  4290. }
  4291. /*FI]*/
  4292. }
  4293.  
  4294.  
  4295. void r325add_include_on(T0* a1,T0* a2){
  4296. r48put_string(((T48*)a1),((T0*)ms325_6705));
  4297. {int z1=/*(IRF4.6first*/((/*RF2*/(((T7*)a2))->_storage/*0*/))[0]/*)*/;
  4298.  
  4299. if((34==z1)||(60==z1)){
  4300. }
  4301.  else{/*[IRF3.6put_character*/{T48* C1=((T48*)a1);
  4302. T3 b1=((T3)'\42');
  4303. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4304. }/*]*/
  4305. }}
  4306. r48put_string(((T48*)a1),a2);
  4307. {int z1=r7last(((T7*)a2));
  4308.  
  4309. if((34==z1)||(62==z1)){
  4310. }
  4311.  else{/*[IRF3.6put_character*/{T48* C1=((T48*)a1);
  4312. T3 b1=((T3)'\42');
  4313. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4314. }/*]*/
  4315. }}
  4316. /*[IRF3.6put_character*/{T48* C1=((T48*)a1);
  4317. T3 b1=((T3)'\n');
  4318. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4319. }/*]*/
  4320. }
  4321.  
  4322.  
  4323. void r325se_evobt(T325* C,T0* a1,T0* a2){
  4324. (/*SFN*/C->_sure_void_count)=((/*RF2*/(C)->_sure_void_count/*44*/))+(1);
  4325. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/(C)->_current_out/*63*/)));
  4326. T3 b1=((T3)'\50');
  4327. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4328. }/*]*/
  4329. /*]*/
  4330. /*[IF*/
  4331. if(r47no_check((T47*)(oBC13run_control))){
  4332. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/(C)->_current_out/*63*/))),((T0*)ms325_11664));
  4333. /*]*/
  4334. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/(C)->_current_out/*63*/)));
  4335. T3 b1=((T3)'\50');
  4336. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4337. }/*]*/
  4338. /*]*/
  4339. X104compile_to_c(a2);
  4340. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/(C)->_current_out/*63*/)));
  4341. T3 b1=((T3)'\54');
  4342. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4343. }/*]*/
  4344. /*]*/
  4345. {T68 se_tmp0;
  4346. /*[IRF3.6put_position*/{T68 b1=(*(se_tmp0=X104start_position(a2),&se_tmp0));
  4347. r48put_integer((T48*)(oBC325out_c),(/*RF2*/(b1)._mangling/*4*/));
  4348. }/*]*/
  4349. }
  4350. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/(C)->_current_out/*63*/)));
  4351. T3 b1=((T3)'\51');
  4352. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4353. }/*]*/
  4354. /*]*/
  4355. }
  4356. else{
  4357. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/(C)->_current_out/*63*/))),((T0*)ms325_11568));
  4358. /*]*/
  4359. X104compile_to_c(a2);
  4360. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/(C)->_current_out/*63*/)));
  4361. T3 b1=((T3)'\54');
  4362. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4363. }/*]*/
  4364. /*]*/
  4365. r380se_evobt((T380*)(oBC13exceptions_handler));
  4366. }
  4367. /*FI]*/
  4368. /*[IF*/
  4369. if((X334result_type(a1))!=((void*)(NULL))){
  4370. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/(C)->_current_out/*63*/)));
  4371. T3 b1=((T3)'\54');
  4372. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4373. }/*]*/
  4374. /*]*/
  4375. X52c_initialize(X334result_type(a1));
  4376. }
  4377. /*FI]*/
  4378. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/(C)->_current_out/*63*/)));
  4379. T3 b1=((T3)'\51');
  4380. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4381. }/*]*/
  4382. /*]*/
  4383. /*[IF*/
  4384. if((X334result_type(a1))==((void*)(NULL))){
  4385. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/(C)->_current_out/*63*/))),((T0*)ms14_138));
  4386. /*]*/
  4387. }
  4388. /*FI]*/
  4389. }
  4390.  
  4391.  
  4392. void r325check_assertion(T325* C,T0* a1,T0* a2){
  4393. {T68 se_tmp0;
  4394. r325se_trace_ins(C,(*(se_tmp0=X104start_position(a1),&se_tmp0)));
  4395. }
  4396. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/(C)->_current_out/*63*/))),((T0*)ms325_873));
  4397. /*]*/
  4398. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/(C)->_current_out/*63*/))),(/*RF2*/(C)->_check_assertion_mode/*67*/));
  4399. /*]*/
  4400. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/(C)->_current_out/*63*/)));
  4401. T3 b1=((T3)'\50');
  4402. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4403. }/*]*/
  4404. /*]*/
  4405. /*[IF*/
  4406. if(X104is_static(a1)){
  4407. (/*SFN*/C->_static_expression_count)=((/*RF2*/(C)->_static_expression_count/*28*/))+(1);
  4408. }
  4409. /*FI]*/
  4410. X104compile_to_c(a1);
  4411. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/(C)->_current_out/*63*/)));
  4412. T3 b1=((T3)'\54');
  4413. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4414. }/*]*/
  4415. /*]*/
  4416. /*[IF*/
  4417. if((a2)!=((void*)(NULL))){
  4418. r325put_string_c((/*RF2*/(((T105*)a2))->_to_string/*0*/));
  4419. }
  4420. else{
  4421. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/(C)->_current_out/*63*/))),((T0*)ms14_1260));
  4422. /*]*/
  4423. }
  4424. /*FI]*/
  4425. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/(C)->_current_out/*63*/))),((T0*)ms14_330));
  4426. /*]*/
  4427. (/*SFN*/C->_elt_c_count)=((/*RF2*/(C)->_elt_c_count/*83*/))+(1);
  4428. }
  4429.  
  4430.  
  4431. void r325c_plus_plus_register(T325* C,T0* a1){
  4432. /*[IF*/
  4433. if(((/*RF2*/(C)->_c_plus_plus/*55*/))==((void*)(NULL))){
  4434. {T331*n=((T331*)malloc(sizeof(*n))/*12*/);
  4435. *n=M331;
  4436. r331with_capacity(n,64);
  4437. (/*SFN*/C->_c_plus_plus)=((T0*)n);
  4438. }
  4439. }
  4440. /*FI]*/
  4441. r331add_last((T331*)((/*RF2*/(C)->_c_plus_plus/*55*/)),a1);
  4442. }
  4443.  
  4444.  
  4445. void r325increment_static_expression_count(T325* C,T2 a1){
  4446. (/*SFN*/C->_static_expression_count)=((/*RF2*/(C)->_static_expression_count/*28*/))+(a1);
  4447. }
  4448.  
  4449.  
  4450. void r325current_class_invariant(T0* a1){
  4451. T0* _rc=NULL;
  4452. _rc=r325need_invariant(a1);
  4453. /*[IF*/
  4454. if((_rc)!=((void*)(NULL))){
  4455. /*[IF*/
  4456. if(X52is_reference((/*RF2*/(((T50*)_rc))->_current_type/*0*/))){
  4457. r48put_string((T48*)(oBC325out_c),((T0*)ms325_12948));
  4458. }
  4459. /*FI]*/
  4460. r48put_string((T48*)(oBC325out_c),((T0*)ms14_1664));
  4461. r48put_integer((T48*)(oBC325out_c),(/*RF2*/(((T50*)_rc))->_id/*4*/));
  4462. r48put_string((T48*)(oBC325out_c),((T0*)ms325_3843));
  4463. }
  4464. /*FI]*/
  4465. }
  4466.  
  4467.  
  4468. void r325incr_switch_count(T325* C){
  4469. (/*SFN*/C->_switch_count)=((/*RF2*/(C)->_switch_count/*48*/))+(1);
  4470. }
  4471.  
  4472.  
  4473. void r325put_to_pointer(T325* C){
  4474. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/(C)->_current_out/*63*/))),((T0*)ms325_5936));
  4475. /*]*/
  4476. r325put_target_as_value(C);
  4477. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/(C)->_current_out/*63*/)));
  4478. T3 b1=((T3)'\51');
  4479. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4480. }/*]*/
  4481. /*]*/
  4482. }
  4483.  
  4484.  
  4485. void r325put_cpc(T325* C,T0* a1){
  4486. T0* _run_feature=NULL;
  4487. T0* _target_type=NULL;
  4488. T0* _target=NULL;
  4489. _target=/*SSWARF2*//*X116target*/(/*RF2*/(((T134*)a1))->_target/*4*/);
  4490. _target_type=X52run_type(X104result_type(_target));
  4491. _run_feature=X116run_feature(a1);
  4492. /*[IF*/
  4493. if(X52is_expanded(_target_type)){
  4494. r325push_direct(C,_run_feature,_target,X116arguments(a1));
  4495. X334mapping_c(_run_feature);
  4496. r325pop(C);
  4497. }
  4498.  else if(X104is_current(_target)){
  4499. r325push_direct(C,_run_feature,_target,X116arguments(a1));
  4500. X334mapping_c(_run_feature);
  4501. r325pop(C);
  4502. }
  4503.  else if(X104is_manifest_string(_target)){
  4504. r325push_direct(C,_run_feature,_target,X116arguments(a1));
  4505. X334mapping_c(_run_feature);
  4506. r325pop(C);
  4507. }
  4508. else{
  4509. r325push_cpc(C,_run_feature,(/*RF2*/((T50*)(X52run_class(_target_type)))->_running/*9*/),_target,X116arguments(a1));
  4510. }
  4511. /*FI]*/
  4512. }
  4513.  
  4514.  
  4515. void r325put_target_as_value(T325* C){
  4516. T0* _direct_rf=NULL;
  4517. T0* _c0c=NULL;
  4518. T0* _args=NULL;
  4519. T0* _target=NULL;
  4520. T0* _static_rf=NULL;
  4521. T0* _rf=NULL;
  4522. T2 _code=0;
  4523. _code=/*(IRF4.6item*/((/*RF2*/((T27*)(oBC326stack_code))->_storage/*0*/))[(/*RF2*/(C)->_top/*32*/)]/*)*/;
  4524. {int z1=_code;
  4525.  
  4526. if((11==z1)){
  4527. X104compile_to_c(X141item(oBC326stack_target,(/*RF2*/(C)->_top/*32*/)));
  4528. }
  4529.  else 
  4530. if((12==z1)){
  4531. X52mapping_cast(/*SSWARF2*//*X334current_type*/(/*RF2*/((T368*)(X349item(oBC326stack_rf,(/*RF2*/(C)->_top/*32*/))))->_current_type/*8*/));
  4532. X104compile_to_c(X141item(oBC326stack_target,(/*RF2*/(C)->_top/*32*/)));
  4533. }
  4534.  else 
  4535. if((16==z1)){
  4536. _rf=X349item(oBC326stack_rf,(/*RF2*/(C)->_top/*32*/));
  4537. _target=X141item(oBC326stack_target,(/*RF2*/(C)->_top/*32*/));
  4538. _args=/*(IRF4.6item*/((/*RF2*/((T358*)(oBC326stack_args))->_storage/*0*/))[(/*RF2*/(C)->_top/*32*/)]/*)*/;
  4539. _static_rf=X349item(oBC326stack_static_rf,(/*RF2*/(C)->_top/*32*/));
  4540. (/*SFN*/C->_top)=((/*RF2*/(C)->_top/*32*/))-(1);
  4541. _c0c=_target;
  4542. if(NULL!=(_c0c)){
  4543. switch(((T0*)_c0c)->id){
  4544. case 140:
  4545. break;
  4546. default:
  4547. _c0c=NULL;
  4548. }
  4549. }_direct_rf=(/*RF2*/(((T140*)_c0c))->_run_feature/*12*/);
  4550. X334mapping_c(_direct_rf);
  4551. (/*SFN*/C->_top)=((/*RF2*/(C)->_top/*32*/))+(1);
  4552. /*[IRF3.5put*/((/*RF2*/((T27*)(oBC326stack_code))->_storage/*0*/))[(/*RF2*/(C)->_top/*32*/)]=(_code);
  4553. /*]*/
  4554. X349put(oBC326stack_rf,_rf,(/*RF2*/(C)->_top/*32*/));
  4555. X141put(oBC326stack_target,_target,(/*RF2*/(C)->_top/*32*/));
  4556. /*[IRF3.5put*/((/*RF2*/((T358*)(oBC326stack_args))->_storage/*0*/))[(/*RF2*/(C)->_top/*32*/)]=(_args);
  4557. /*]*/
  4558. X349put(oBC326stack_static_rf,_static_rf,(/*RF2*/(C)->_top/*32*/));
  4559. }
  4560.  else 
  4561. if((17==z1)){
  4562. _rf=X349item(oBC326stack_rf,(/*RF2*/(C)->_top/*32*/));
  4563. _args=/*(IRF4.6item*/((/*RF2*/((T358*)(oBC326stack_args))->_storage/*0*/))[(/*RF2*/(C)->_top/*32*/)]/*)*/;
  4564. (/*SFN*/C->_top)=((/*RF2*/(C)->_top/*32*/))-(1);
  4565. r325put_target_as_value(C);
  4566. (/*SFN*/C->_top)=((/*RF2*/(C)->_top/*32*/))+(1);
  4567. /*[IRF3.5put*/((/*RF2*/((T27*)(oBC326stack_code))->_storage/*0*/))[(/*RF2*/(C)->_top/*32*/)]=(_code);
  4568. /*]*/
  4569. X349put(oBC326stack_rf,_rf,(/*RF2*/(C)->_top/*32*/));
  4570. /*[IRF3.5put*/((/*RF2*/((T358*)(oBC326stack_args))->_storage/*0*/))[(/*RF2*/(C)->_top/*32*/)]=(_args);
  4571. /*]*/
  4572. }
  4573.  else{r325common_put_target(C);
  4574. }}
  4575. }
  4576.  
  4577.  
  4578. void r325put_string_c(T0* a1){
  4579. /*[IRF3.3clear*/((((T7*)((T7*)(oBC325tmp_string))))->_count)=(0);
  4580. /*]*/
  4581. r366string_to_c_code(a1,oBC325tmp_string);
  4582. r48put_string((T48*)(oBC325out_c),oBC325tmp_string);
  4583. }
  4584. T0*oBC325c_inline_h_mem=NULL;
  4585.  
  4586.  
  4587. void r325put_trace_switch(T325* C){
  4588. /*[IF*/
  4589. if((/*RF2*/((T47*)(oBC13run_control))->_trace/*4*/)){
  4590. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/(C)->_current_out/*63*/))),((T0*)ms325_17115));
  4591. /*]*/
  4592. r325put_ith_argument(C,1);
  4593. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/(C)->_current_out/*63*/))),((T0*)ms14_330));
  4594. /*]*/
  4595. }
  4596. /*FI]*/
  4597. }
  4598.  
  4599.  
  4600. void r325define_initialize_eiffel_runtime(T325* C,T0* a1){
  4601. T0* _ct=NULL;
  4602. T0* _rc=NULL;
  4603. T6 _no_check=0;
  4604. _no_check=r47no_check((T47*)(oBC13run_control));
  4605. _ct=(/*RF2*/(((T368*)a1))->_current_type/*8*/);
  4606. _rc=r368run_class(((T368*)a1));
  4607. r35put_string((T35*)(oBC13echo),((T0*)ms325_18400));
  4608. /*[IRF3.2define_extern_tables*/{T2 _size=0;
  4609. _size=((/*RF2*/((T39*)(r49id_provider()))->_max_id/*0*/))+(1);
  4610. r325macro_def((T325*)(oBC13cpp),((T0*)ms49_7464),_size);
  4611. /*[IF*/
  4612. if((/*RF2*/((T47*)(oBC13run_control))->_generator_used/*10*/)){
  4613. r325put_extern4((T325*)(oBC13cpp),((T0*)ms14_543),((T0*)ms49_103),_size);
  4614. }
  4615. /*FI]*/
  4616. /*[IF*/
  4617. if((/*RF2*/((T47*)(oBC13run_control))->_generating_type_used/*9*/)){
  4618. r325put_extern4((T325*)(oBC13cpp),((T0*)ms14_543),((T0*)ms49_116),_size);
  4619. }
  4620. /*FI]*/
  4621. /*[IF*/
  4622. if(r47no_check((T47*)(oBC13run_control))){
  4623. r325put_extern4((T325*)(oBC13cpp),((T0*)ms49_2280),((T0*)ms49_112a),_size);
  4624. r7copy((T7*)(oBC49c_code),((T0*)ms49_27585));
  4625. r2append_in(_size,oBC49c_code);
  4626. r7append((T7*)(oBC49c_code),((T0*)ms49_8130));
  4627. r325put_extern1((T325*)(oBC13cpp),oBC49c_code);
  4628. }
  4629. /*FI]*/
  4630. }/*]*/
  4631. r325put_c_heading(C,((T0*)ms325_135096));
  4632. /*[IF*/
  4633. if(_no_check){
  4634. r48put_string((T48*)(oBC325out_c),((T0*)ms325_256632));
  4635. }
  4636. /*FI]*/
  4637. r48put_string((T48*)(oBC325out_c),((T0*)ms325_22456));
  4638. r344initialize_runtime((T344*)(oBC13gc_handler));
  4639. r380initialize_runtime((T380*)(oBC13exceptions_handler));
  4640. /*[IF*/
  4641. if(_no_check){
  4642. /*[IRF3.2initialize_path_table*/{T0* _rc=NULL;
  4643. T0* _bc=NULL;
  4644. T2 _i=0;
  4645. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms49_6300));
  4646. /*]*/
  4647. _i=1;
  4648. while (!((_i)>((/*RF2*/((T63*)(oBC49base_class_dictionary))->_count/*36*/))))
  4649. {
  4650. _bc=r63item((T63*)(oBC49base_class_dictionary),_i);
  4651. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms49_406a));
  4652. /*]*/
  4653. /*[IRF3.5put_integer*/r48put_integer(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),(/*RF2*/(((T51*)_bc))->_id/*0*/));
  4654. /*]*/
  4655. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms49_308));
  4656. /*]*/
  4657. r325put_string_c((/*RF2*/(((T51*)_bc))->_path/*4*/));
  4658. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_138));
  4659. /*]*/
  4660. _i=(_i)+(1);
  4661. }
  4662. _i=1;
  4663. while (!((_i)>((/*RF2*/((T55*)(oBC49run_class_dictionary))->_count/*36*/))))
  4664. {
  4665. _rc=r55item((T55*)(oBC49run_class_dictionary),_i);
  4666. /*[IF*/
  4667. if((/*RF2*/(((T50*)_rc))->_at_run_time/*8*/)){
  4668. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms49_12204));
  4669. /*]*/
  4670. /*[IRF3.5put_integer*/r48put_integer(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),(/*RF2*/(((T50*)_rc))->_id/*4*/));
  4671. /*]*/
  4672. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms49_75712));
  4673. /*]*/
  4674. /*[IRF3.5put_integer*/r48put_integer(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),(/*RF2*/(((T50*)_rc))->_id/*4*/));
  4675. /*]*/
  4676. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms49_330));
  4677. /*]*/
  4678. /*[IF*/
  4679. if(X52is_generic((/*RF2*/(((T50*)_rc))->_current_type/*0*/))){
  4680. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms49_406));
  4681. /*]*/
  4682. /*[IRF3.5put_integer*/r48put_integer(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),(/*RF2*/(((T50*)_rc))->_id/*4*/));
  4683. /*]*/
  4684. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms49_1428));
  4685. /*]*/
  4686. /*[IRF3.5put_integer*/r48put_integer(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),(/*RF2*/((T51*)(r50base_class(((T50*)_rc))))->_id/*0*/));
  4687. /*]*/
  4688. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms49_486));
  4689. /*]*/
  4690. }
  4691. /*FI]*/
  4692. }
  4693. /*FI]*/
  4694. _i=(_i)+(1);
  4695. }
  4696. }/*]*/
  4697. }
  4698. /*FI]*/
  4699. /*[IF*/
  4700. if((/*RF2*/((T47*)(oBC13run_control))->_generator_used/*10*/)){
  4701. /*[IRF3.2initialize_generator*/{T0* _rc=NULL;
  4702. T0* _bc=NULL;
  4703. T2 _i=0;
  4704. _i=1;
  4705. while (!((_i)>((/*RF2*/((T63*)(oBC49base_class_dictionary))->_count/*36*/))))
  4706. {
  4707. _bc=r63item((T63*)(oBC49base_class_dictionary),_i);
  4708. r325put_array1((T325*)(oBC13cpp),((T3)'g'),(/*RF2*/(((T51*)_bc))->_id/*0*/));
  4709. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  4710. T3 b1=((T3)'\75');
  4711. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4712. }/*]*/
  4713. /*]*/
  4714. r325put_se_string_from_external_copy((T325*)(oBC13cpp),(/*RF2*/((T61*)((/*RF2*/(((T51*)_bc))->_name/*18*/)))->_to_string/*8*/));
  4715. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_138));
  4716. /*]*/
  4717. _i=(_i)+(1);
  4718. }
  4719. _i=1;
  4720. while (!((_i)>((/*RF2*/((T55*)(oBC49run_class_dictionary))->_count/*36*/))))
  4721. {
  4722. _rc=r55item((T55*)(oBC49run_class_dictionary),_i);
  4723. /*[IF*/
  4724. if((/*RF2*/(((T50*)_rc))->_at_run_time/*8*/)){
  4725. _bc=r50base_class(((T50*)_rc));
  4726. /*[IF*/
  4727. if(((/*RF2*/((T61*)((/*RF2*/(((T51*)_bc))->_name/*18*/)))->_to_string/*8*/))!=((void*)(X52run_time_mark((/*RF2*/(((T50*)_rc))->_current_type/*0*/))))){
  4728. r325put_array1((T325*)(oBC13cpp),((T3)'g'),(/*RF2*/(((T50*)_rc))->_id/*4*/));
  4729. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  4730. T3 b1=((T3)'\75');
  4731. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4732. }/*]*/
  4733. /*]*/
  4734. r325put_array1((T325*)(oBC13cpp),((T3)'g'),(/*RF2*/(((T51*)_bc))->_id/*0*/));
  4735. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_138));
  4736. /*]*/
  4737. }
  4738. /*FI]*/
  4739. }
  4740. /*FI]*/
  4741. _i=(_i)+(1);
  4742. }
  4743. }/*]*/
  4744. }
  4745. /*FI]*/
  4746. /*[IF*/
  4747. if((/*RF2*/((T47*)(oBC13run_control))->_generating_type_used/*9*/)){
  4748. /*[IRF3.2initialize_generating_type*/{T0* _rtm=NULL;
  4749. T0* _bc=NULL;
  4750. T0* _rc=NULL;
  4751. T2 _i=0;
  4752. _i=1;
  4753. while (!((_i)>((/*RF2*/((T55*)(oBC49run_class_dictionary))->_count/*36*/))))
  4754. {
  4755. _rc=r55item((T55*)(oBC49run_class_dictionary),_i);
  4756. /*[IF*/
  4757. if((/*RF2*/(((T50*)_rc))->_at_run_time/*8*/)){
  4758. r325put_array1((T325*)(oBC13cpp),((T3)'t'),(/*RF2*/(((T50*)_rc))->_id/*4*/));
  4759. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  4760. T3 b1=((T3)'\75');
  4761. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4762. }/*]*/
  4763. /*]*/
  4764. _bc=r50base_class(((T50*)_rc));
  4765. _rtm=X52run_time_mark((/*RF2*/(((T50*)_rc))->_current_type/*0*/));
  4766. /*[IF*/
  4767. if(((/*RF2*/((T61*)((/*RF2*/(((T51*)_bc))->_name/*18*/)))->_to_string/*8*/))!=((void*)(_rtm))){
  4768. r325put_se_string_from_external_copy((T325*)(oBC13cpp),_rtm);
  4769. }
  4770. else{
  4771. r325put_array1((T325*)(oBC13cpp),((T3)'g'),(/*RF2*/(((T50*)_rc))->_id/*4*/));
  4772. }
  4773. /*FI]*/
  4774. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_138));
  4775. /*]*/
  4776. }
  4777. /*FI]*/
  4778. _i=(_i)+(1);
  4779. }
  4780. }/*]*/
  4781. }
  4782. /*FI]*/
  4783. /*[IF*/
  4784. if(!((/*RF2*/((T380*)(oBC13exceptions_handler))->_used/*0*/))){
  4785. r48put_string((T48*)(oBC325out_c),((T0*)ms325_630890));
  4786. }
  4787. /*FI]*/
  4788. /*[IRF3.2c_call_initialize*//*[IF*/
  4789. if(((/*RF2*/((T367*)(oBC366mangling_dictionary))->_count/*40*/))>(0)){
  4790. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms366_6990));
  4791. /*]*/
  4792. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  4793. T3 b1=((T3)'1');
  4794. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4795. }/*]*/
  4796. /*]*/
  4797. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_600));
  4798. /*]*/
  4799. }
  4800. /*FI]*/
  4801. /*]*/
  4802. /*[IRF3.2c_pre_compute*/{T0* _bf=NULL;
  4803. T0* _rf=NULL;
  4804. T0* _memory=NULL;
  4805. T2 _i=0;
  4806. r35put_string((T35*)(oBC13echo),((T0*)ms14_84942));
  4807. r35put_string((T35*)(oBC13echo),((T0*)ms14_1320));
  4808. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms363_3160));
  4809. /*]*/
  4810. _i=/*SSWARF2*//*X349upper*/(/*RF2*/((T349*)(oBC363function_list))->_upper/*12*/);
  4811. {T92*n=((T92*)malloc(sizeof(*n))/*16*/);
  4812. *n=M92;
  4813. r92with_capacity(n,64);
  4814. _memory=((T0*)n);
  4815. }
  4816. while (!((_i)<(0)))
  4817. {
  4818. _rf=X349item(oBC363function_list,_i);
  4819. /*[IF*/
  4820. if((/*RF2*/((T50*)(/*SSFRF4*//*X334run_class*/r368run_class(((T368*)_rf))))->_at_run_time/*8*/)){
  4821. /*[IF*/
  4822. if(X334is_pre_computable(_rf)){
  4823. _bf=/*SSWA2*//*X334base_feature*/(/*RF2*/(((T368*)_rf))->_base_feature/*24*/);
  4824. /*[IF*/
  4825. if(!(X92fast_has(_memory,_bf))){
  4826. X92add_last(_memory,_bf);
  4827. r35put_character((T35*)(oBC13echo),((T3)'\11'));
  4828. r35put_string((T35*)(oBC13echo),(/*RF2*/((T61*)((/*RF2*/((T51*)(/*SSWARF2*//*X90base_class*/(/*RF2*/(((T198*)_bf))->_base_class/*4*/)))->_name/*18*/)))->_to_string/*8*/));
  4829. r35put_character((T35*)(oBC13echo),((T3)'\56'));
  4830. r35put_string((T35*)(oBC13echo),X82to_string(/*SSWARF2*//*X334name*/(/*RF2*/(((T368*)_rf))->_name/*12*/)));
  4831. r35put_character((T35*)(oBC13echo),((T3)'\n'));
  4832. r363c_pre_compute_of(_rf,_bf);
  4833. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms363_3160));
  4834. /*]*/
  4835. }
  4836. /*FI]*/
  4837. }
  4838. /*FI]*/
  4839. }
  4840. /*FI]*/
  4841. _i=(_i)-(1);
  4842. }
  4843. r35print_count((T35*)(oBC13echo),((T0*)ms14_84942),/*SSFRF4*//*X92count*/r92count(((T92*)_memory)));
  4844. }/*]*/
  4845. /*[IF*/
  4846. if((/*RF2*/((T47*)(oBC13run_control))->_trace/*4*/)){
  4847. r48put_string((T48*)(oBC325out_c),((T0*)ms325_12087));
  4848. }
  4849. /*FI]*/
  4850. /*[IF*/
  4851. if(!((/*RF2*/((T344*)(oBC13gc_handler))->_is_off/*0*/))){
  4852. r48put_string((T48*)(oBC325out_c),((T0*)ms325_8411));
  4853. }
  4854. /*FI]*/
  4855. r344allocation_of((T344*)(oBC13gc_handler),((T0*)ms14_46782),_rc);
  4856. /*[IF*/
  4857. if(r47no_check((T47*)(oBC13run_control))){
  4858. r48put_string((T48*)(oBC325out_c),((T0*)ms325_8528));
  4859. }
  4860. /*FI]*/
  4861. r48put_string((T48*)(oBC325out_c),((T0*)ms14_270a));
  4862. }
  4863.  
  4864.  
  4865. void r325se_tmp_close_declaration(T325* C){
  4866. (/*SFN*/C->_se_tmp_level)=((/*RF2*/(C)->_se_tmp_level/*91*/))-(1);
  4867. r48put_string((T48*)(oBC325out_c),((T0*)ms14_270a));
  4868. /*[IF*/
  4869. if(((/*RF2*/(C)->_se_tmp_level/*91*/))==(0)){
  4870. /*SSPRF3*//*X349clear*//*[IRF3.3clear*/((((T349*)((T349*)(oBC325se_tmp_list))))->_upper)=(-(1));
  4871. /*]*/
  4872. }
  4873. /*FI]*/
  4874. }
  4875.  
  4876.  
  4877. void r325put_extern6(T325* C,T0* a1,T2 a2){
  4878. r325incr_elt_c_count(C,2);
  4879. r48put_string((T48*)((/*RF2*/(C)->_out_h/*59*/)),((T0*)ms14_5432));
  4880. r48put_string((T48*)((/*RF2*/(C)->_out_h/*59*/)),a1);
  4881. r48put_string((T48*)((/*RF2*/(C)->_out_h/*59*/)),((T0*)ms14_138));
  4882. r48put_string((T48*)(oBC325out_c),a1);
  4883. /*[IRF3.6put_character*/{T48* C1=(T48*)(oBC325out_c);
  4884. T3 b1=((T3)'\75');
  4885. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4886. }/*]*/
  4887. r48put_integer((T48*)(oBC325out_c),a2);
  4888. r48put_string((T48*)(oBC325out_c),((T0*)ms14_138));
  4889. }
  4890.  
  4891.  
  4892. T6 r325stupid_switch_n(T325* C,T0* a1,T0* a2){
  4893. T6 R=0;
  4894. T0* _stupid=NULL;
  4895. /*[IF*/
  4896. if(r49same_base_feature(a1,a2)){
  4897. _stupid=X334stupid_switch(a1,a2);
  4898. /*[IF*/
  4899. if((_stupid)!=((void*)(NULL))){
  4900. r325put_comment(C,_stupid);
  4901. R=1;
  4902. }
  4903. /*FI]*/
  4904. }
  4905. else{
  4906. R=r325attribute_read_removal(a1,a2);
  4907. /*[IF*/
  4908. if(R){
  4909. r325put_comment(C,((T0*)ms325_1840));
  4910. }
  4911. /*FI]*/
  4912. }
  4913. /*FI]*/
  4914. return R;
  4915. }
  4916.  
  4917.  
  4918. void r325sys_runtime_c(T0* a1){
  4919. r43sys_runtime((T43*)(r325system_tools()),a1,((T3)'c'));
  4920. r325put_file(oBC13tmp_file_read,oBC325out_c);
  4921. }
  4922.  
  4923.  
  4924. void r325swap_on_h(T325* C){
  4925. (/*SFN*/C->_current_out)=(/*RF2*/(C)->_out_h/*59*/);
  4926. }
  4927.  
  4928.  
  4929. void r325put_generator(T325* C,T0* a1){
  4930. T0* _rc=NULL;
  4931. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/(C)->_current_out/*63*/))),((T0*)ms14_1275));
  4932. /*]*/
  4933. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/(C)->_current_out/*63*/)));
  4934. T3 b1=((T3)'\50');
  4935. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4936. }/*]*/
  4937. /*]*/
  4938. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/(C)->_current_out/*63*/)));
  4939. T3 b1=((T3)'g');
  4940. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4941. }/*]*/
  4942. /*]*/
  4943. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/(C)->_current_out/*63*/)));
  4944. T3 b1=((T3)'\133');
  4945. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4946. }/*]*/
  4947. /*]*/
  4948. /*[IF*/
  4949. if(X52is_reference(a1)){
  4950. _rc=X52run_class(a1);
  4951. /*[IF*/
  4952. if(r50is_tagged(((T50*)_rc))){
  4953. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/(C)->_current_out/*63*/)));
  4954. T3 b1=((T3)'\50');
  4955. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4956. }/*]*/
  4957. /*]*/
  4958. r325put_target_as_value(C);
  4959. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/(C)->_current_out/*63*/)));
  4960. T3 b1=((T3)'\51');
  4961. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4962. }/*]*/
  4963. /*]*/
  4964. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/(C)->_current_out/*63*/))),((T0*)ms14_1248));
  4965. /*]*/
  4966. }
  4967. else{
  4968. /*[IRF3.5put_integer*/r48put_integer(((T48*)((/*RF2*/(C)->_current_out/*63*/))),(/*RF2*/(((T50*)_rc))->_id/*4*/));
  4969. /*]*/
  4970. }
  4971. /*FI]*/
  4972. }
  4973. else{
  4974. /*[IRF3.5put_integer*/r48put_integer(((T48*)((/*RF2*/(C)->_current_out/*63*/))),X52id(a1));
  4975. /*]*/
  4976. }
  4977. /*FI]*/
  4978. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/(C)->_current_out/*63*/)));
  4979. T3 b1=((T3)'\135');
  4980. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4981. }/*]*/
  4982. /*]*/
  4983. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/(C)->_current_out/*63*/)));
  4984. T3 b1=((T3)'\51');
  4985. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4986. }/*]*/
  4987. /*]*/
  4988. }
  4989.  
  4990.  
  4991. void r325put_error0(T325* C,T0* a1){
  4992. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/(C)->_current_out/*63*/))),((T0*)ms325_5838));
  4993. /*]*/
  4994. r325put_string_c(a1);
  4995. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/(C)->_current_out/*63*/))),((T0*)ms325_3512));
  4996. /*]*/
  4997. }
  4998.  
  4999.  
  5000. void r325pop(T325* C){
  5001. (/*SFN*/C->_top)=((/*RF2*/(C)->_top/*32*/))-(1);
  5002. }
  5003.  
  5004.  
  5005. void r325se_tmp_close(T2 a1){
  5006. r48put_string((T48*)(oBC325out_c),((T0*)ms325_10312));
  5007. r48put_integer((T48*)(oBC325out_c),a1);
  5008. r48put_string((T48*)(oBC325out_c),((T0*)ms14_164));
  5009. }
  5010. T0*oBC326stack_static_rf=NULL;
  5011.  
  5012.  
  5013. void r325register_bit_constant(T325* C,T0* a1){
  5014. /*[IF*/
  5015. if(((/*RF2*/(C)->_bit_constant_pool/*87*/))==((void*)(NULL))){
  5016. {T339*n=((T339*)malloc(sizeof(*n))/*16*/);
  5017. *n=M339;
  5018. r339with_capacity(n,4);
  5019. (/*SFN*/C->_bit_constant_pool)=((T0*)n);
  5020. }
  5021. }
  5022. /*FI]*/
  5023. r339add_last((T339*)((/*RF2*/(C)->_bit_constant_pool/*87*/)),a1);
  5024. r48put_string((T48*)(oBC325out_c),((T0*)ms325_33810));
  5025. r48put_integer((T48*)(oBC325out_c),(/*RF2*/((T339*)((/*RF2*/(C)->_bit_constant_pool/*87*/)))->_upper/*12*/));
  5026. }
  5027.  
  5028.  
  5029. void r325incr_real_function_count(T325* C){
  5030. (/*SFN*/C->_real_function_count)=((/*RF2*/(C)->_real_function_count/*24*/))+(1);
  5031. }
  5032.  
  5033.  
  5034. void r325write_make_file_no_split(T325* C){
  5035. r43no_split_mode_command((T43*)(r325system_tools()),oBC325tmp_string,r325path_c(C));
  5036. /*[IRF3.2echo_make*/r48put_string((T48*)(oBC325out_make),oBC325tmp_string);
  5037. /*[IRF3.6put_character*/{T48* C1=(T48*)(oBC325out_make);
  5038. T3 b1=((T3)'\n');
  5039. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  5040. }/*]*/
  5041. /*]*/
  5042. }
  5043.  
  5044.  
  5045. void r325get_started(T325* C){
  5046. T6 _no_check=0;
  5047. r35file_removing((T35*)(oBC13echo),r325path_make());
  5048. _no_check=r47no_check((T47*)(oBC13run_control));
  5049. (/*SFN*/C->_top)=-(1);
  5050. /*[IF*/
  5051. if((/*RF2*/(C)->_no_split/*52*/)){
  5052. r35sfw_connect((T35*)(oBC13echo),oBC325out_c,r325path_c(C));
  5053. }
  5054. else{
  5055. r325backup_sfw_connect(oBC325out_c,r325path_c(C));
  5056. }
  5057. /*FI]*/
  5058. (/*SFN*/C->_current_out)=oBC325out_c;
  5059. r325add_first_include(r325path_h());
  5060. {T48*n=((T48*)malloc(sizeof(*n))/*8*/);
  5061. *n=M48;
  5062. /*[IRF3.1make*//*]*/
  5063. (/*SFN*/C->_out_h)=((T0*)n);
  5064. }
  5065. r35sfw_connect((T35*)(oBC13echo),(/*RF2*/(C)->_out_h/*59*/),r325path_h());
  5066. (/*SFN*/C->_current_out)=(/*RF2*/(C)->_out_h/*59*/);
  5067. r325put_banner((/*RF2*/(C)->_out_h/*59*/));
  5068. /*[IRF3.6put_character*/{T48* C1=(T48*)((/*RF2*/(C)->_out_h/*59*/));
  5069. T3 b1=((T3)'\n');
  5070. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  5071. }/*]*/
  5072. r325sys_runtime_h(C,((T0*)ms325_1644));
  5073. (/*SFN*/C->_current_out)=oBC325out_c;
  5074. }
  5075.  
  5076.